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GENERAL 



This Product Specification will describe the basic components and 
operators of the B1700 SOL S-Language* including its STACK 
MECHANISM* DATA DESCRIPTORS* and CODE and DATA AOORESSES. After a 
preliminary discussion of the structure and operation of the 
S-Machine# its operators will be explained in detail. 



RELATED PUBLICATIONS 



NAME 
SOL/UPL COMPILER 
B1700 SDL (BNF VERSION) 
81700 SYSTEMS REFERENCE 



MANUAL 



NUMBER 
P.S. 2212 5389 
P.S. 2212 5405 
#105 7155 
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COMPONENTS OF THE S-MACHINE 



The SDL S-Machine is composed of the following basic elements: 



1. Base-limit area 
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Run stucture nucleus 



and SDL 
S-machi ne* 



This contains information used by the MCP 
interpreter to implement an instance of the 
i.e. a running SDL program. 

Code segments and segment dictionaries 

Code Segments are virtual as in the other machines* but the 
Code Segment Dictionary is itself segmented* corresponding 
to the page-segment concept in the SDL language. Each 
entry in a Master Segment Dictionary represents a page of 
segments in the source program and points to a 
sub-dictionary with the entries for those segments. The 
Master Segment Dictionary is non-over I ayab le* the 
sub-dictionaries may be overlaid. 

File information blocks (FIB's) and FIB dictionary 



These appear in (virtual) memory* one FIB per 
use by the running program* used by the 
input/output operations. 



open file in 
system for 



Regi sters 
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These may be either in hard 
depending on the state of 
and number of registers is 
interpreter. Logically* 
instruction pointer (page* 
current lexic level* and 
stacks. Current LL and the 
same register. Also in reg 
about the stacks to check 
are not detected. Registe 
scratchpad area of the prog 
file. (See MCP reference 
following format in SDL cod 

1 SCRATCHPAD* 

2 FILLER 

2 PPS.BASE 

2 FILLER 

2 ES.BASE 

2 ES.PPS.BITS 

2 VS. BASE 

2 FILLER 

2 CS.BASE 

2 CS.BITS 

2 NS.BASE 

2 FILLER 

2 DISPLAY. BASE 

2 FILLER 

2 PROFILE. FLAG 

2 FILLER 

2 VS. BITS 

2 NS.BITS 

2 ES.BITS 

2 PPS.BITS 
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BIT(48)* 

BIT(24)* 

BITC24)* 

BIT(24)* 

BIT(24)* 

BIT(24>* 

BIT(24)f 

BIT(24)* 

BIT(24)* 

BIT(24)> 

BIT(24)* 

BIT(24>* 

BIT(4)* 

BIT(l)* 

BIT(19)* 

BIU24)* 

BIT(24>* 

BIT(24>* 

BIT(24>; 



See the MCP Reference Manual for a more general discussion 
of code files* run structures* file information blocks* 
and the various dictionaries. These concepts are common to 
all the 81700 S-machines. Note that SDL does not make use 
of data segments and data segment dictionary* implementing 
virtual data via an SDL intrinsic instead. 



1-4 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

B1700 SOL S-LANGUAGE 

P.S. #2201 2389 



THE BASE-LIMIT AREA 



The space is divided as shown in the diagram below* with the arrows 
indicating the direction of growth. 



********************************************************** ****** 
* * * * D M 

* * * E 

*VALUE NAME *DI SPLA Y*C0NTR0L*EV ALUlATION PROGRAM* N M 
*STACK STACK*STACK *STACK *STACK STACK* A 

* __> <_- * --> * --> * --> <-- * M R 

* I Y 

* * * * * c 

********************* *********** 

* 

* 

LIMIT REGISTER *** 



*************** A************ 1 



*** BASE. REGISTER 



FIGURE 1.1 SDL STACKS 



VALUE STACK 



Entries are values of data items* 
arbitrary in length* the characteristics 
of which are kept in descriptors in the 
NAME and EVALUATION stacks. 



NAME STACK 



Entries are DATA DESCRIPTORS* 48 bits in 
length* one descriptor for every data 
identifier which is currently active 
(not necessarily addressable) in the 
program. The descriptor for an array is 
96 bits long* occupying two NAME STACK 
entri es. 



DISPLAY 



The NAME STACK is divided into stack 
frames* each frame containing the 
descriptors for the names declared in 
one invocation of a procedure. Not all 
of these stack frames contain 
descriptors which are currently 
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*************************************************************** 

* * * * * 

* NAME STACK POINTER * EXITED * ENTERED * VALUE STACK POINTER * 

* * LL * LL * * 

* * * * * 
***** **************************** ****************************** 

20 BITS i* BITS 4 BITS 20 BITS 

FIGURE 1.2 CONTROL STACK ENTRY FORMAT 



EVALUATION STACK 



The EVALUATION STACK is used to hold 
data descriptors for the evaluation of 
expressions (expressions are compiled 
into reverse polish strings). It is also 



used to 

descriptors 

transferred 

procedure 

expression 

top of the 



build actual parameter 
prior to their being 
to the NAME STACK for a 
call. Space for data during 
evaluation is allocated on 
VALUE STACK which is kept up 
to date as descriptors are pushed on and 
popped off the EVALUATION STACK. 



PROGRAM POINTER STACK 



With the exception of the cycle operator 
used for looping* all transfers of 
control in the SOL machine are done via 
call-type operators. The next 
instruction pointer is saved for 
subsequent return by pushing it onto the 
PROGRAM POINTER STACK. The format of an 
entry in this stack is: 



********************************************* 

* * * * 

* SEGMENT * PAGE * DISPLACEMENT * 

* * * * 
********************************************* 

6 BITS A BITS 22 BITS 

FIGURE 1.3 PROGRAM POINTER STACK ENTRY FORMAT 
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DATA DESCRIPTORS 



Simple (scalar) descriptors are 48 bits in length* with the 
following formats 



******************************************************* 

* * * * 

* TYPE * LENGTH * ADDRESS * 

* * * * 
******************************************************* 



8 BITS 



16 BITS 



24 BITS 



FIGURE 1.4 SIMPLE DESCRIPTOR FORMAT 



The address is specified as a bit offset from the base register 
(which is also the base of the VALUE STACK). The length is 
expressed in bits* regardless of the type. 

One of the bits in the type field indicates whether or not this is 
an ARRAY DESCRIPTOR. When this bit is on* an additional 48 bits of 
information is appended giving the following format: 



******************************************************* 

* * * ■ ' ' * 

* TYPE * LENGTH OF * ADDRESS OF * 

* * ENTRY * ARRAY * 

* * * * 
******************************************************* 

* * * * 

* PAGE * LENGTH BETWEEN * NUMBER OF * 
•SUBSCRIPT* ENTRIES * ENTRIES * 

* SIZE * * * 

* * * * 
******************************************************* 

8 BITS 16 BITS 24 BITS 



FIGURE 1.5 ARRAY DESCRIPTOR FORMAT 



The Page Subscript Size is only used when the PAGED ARRAY bit is on 
in the type field. It specifies the number of bits to shift an 
Array Subscript to obtain the corresponding Page Subscript (Page 
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sizes are always a power of two in SDL). 

The length between entries is the difference between the address of 
one element and the address of the previous element. This must be 
greater than or equal to the length of one entry. 



The Type Field of a descriptor has a single format* even though some 
bits are not meaningful in all contexts. 
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********************************* 
********* 
*0*1*2*3*4*5*6*7* 
********* 
********************************* 

* * * * * * * * 

* * I I I**** * **** 1 => length VARYINGC*) 

* * * * * * 

* * * * * * 

\ * * * * *** 1 => PAGED array (bit 2 must 
A * * * * also be on) 



* * 

* * 

* * 

* ' * 

* * 

* * 

* *** l => contiguous array i.e.* length between 



*** data type: 00 => BIT 

01 => FIXED 

10 => CHARACTER 

11 => type VARYING(*) 



elements = length of one element, (bit 
2 must also be on.) 



* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* *** 
* 
* 

*** name-value bit 1 => value 

=> name 

(used only when the descriptor 



*** 1 => array 

1 => non-self-relative 
=> self-relative 



(must be on if bit 2 is on) 



is on the EVALUATION STACK) 



(*) Only used in the type field of in-line- 
descriptors which are arguments of a CDFC operator 
and in the argument to a RTNC operator. The CDFC 
operator also uses BIT 6 in a different way; it 
indicates a varying array bound. In-line 
descriptors for other operators use BIT to 
indicate the presence of a filler field. See 
IN-LINE DESCRIPTOR FORMAT. 

FIGURE 1.6 DESCRIPTOR TYPE FIELD FORMAT 
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lengths it 



may be 
thus 



When the data itself is 24 bits or less in 
contained directly in. the address portion of the descriptor. 
requiring less storage- In this case, the descriptor is said to be 
self-relative and the non-self-relative bit is off. 



The use of the NAME-VALUE BIT is to distinguish* in the EVALUATION 
STACK, between descriptors which had an a " oc ^^ e f 1A ^^%i?^ ed °" 
the VALUE STACK when they were pushed on the EVALUATION STACK, and 
those which did not. The purpose is to signal that a data item 
should be cut back from the VALUE STACK whenever this descriptor is 
cut back from the ^VALUATION STACK. The bit can only be set in 
non-self-relative descriptors. 
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PAGED ARRAY DESCRIPTORS 

When the PAGED bit is on in an array descriptor, the address *[eld 
of the descriptor does not point directly to the array, but rather 
is initialized to zero. An array load operator C ALA, ALJ will then 
detect the first access to the array and invoke the SDL virtual 
memory manager to build a page table in dynamic memory. Thi s table 
wilt be non-overlayable and the descriptor address field wilt be 
set to the page table address. The table contains one entry per 
array page, each with the format below: 



* STATUS * 



*********************************************** 

* 

* * 

ADDRESS * 

* 

* * 

*********************************************** 
k BITS 24 BITS 

FIGURE 1.7 PAGE TABLE ENTRY FORMAT 
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STATUS FIELD 



bit presence bit 



1 => address is base relative memory 

address 
= > address is disk address 



bit 1 to be read only 1 => the next time this page is 

rolled out* turn this bit off 
and bit 2 on. 



bit 2 read only 
bit 3 unused 



I => this page may be overlaid 

without rolling it out to disk. 



An address field of zero indicates that this is a previously 
unaccessed page and may be created without need for a rollin. 
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DATA ADDRESSES 



The S-La 
any p o i 
descri be 
its orcl 
sect i on 
numbers 
Address i 
f r ame co 
number t 
data ad 
ot her f i 



nguage addresses data via descriptors on the NAME STACK. At 
nt in an SDL program every accessible data item may be 
d by the Lexicographic Level at which it was declared and 
inal location (occurrence number) within the declaration 
at that level. A data address* then* consists of these two 
which uniquely locate a descriptor in the NAME STACK. 
ng is done by using the DISPLAY to locate the NAME STACK 
rresponding to the required Lexic Level* and the occurrence 
o locate the descriptor within that frame. For compactness* 
dresses have a type field which indicates the sizes of the 
elds* as indicated below: 



************************************************** 

* * * * 
♦TYPE * LEXIC LEVEL * OCCURRENCE NUMBER * 

* * * * 
************************************************** 
2 BITS 1/4 BITS 5/10 BITS 

FIGURE 1.8 DATA ADDRESS FORMAT 

TYPE LEXIC LEVEL BITS OCCURRENCE NUMBER BITS TOTAL BITS 



00 
01 
10 

11 



10 
5 

10 
5 



16 
11 
13 
8 



When only one bit is used for Lexic Level* means Lexic Level and 
1 is taken to mean the current Lexic Level* whatever it may be. 
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CODE ADDRESSES 



Code addresses appear as arguments of operators which effect 
transfers of control. They are divided into three parts: the page 
number which selects the segment dictionary page* the segment 
number which selects the segment dictionary entry within that page* 
and the displacement which specifies a bit offset within the 
segment. For compactness* these numbers are encoded in different 
field sizes depending on a type field. 



********************************************************** 

* * * * * 

* TYPE * SEGMENT * PAGE * DISPLACEMENT * 

* * * * * 
********************************************************** 

3 BITS 0/6 BITS 0/4 BITS 12/16 BITS 



FIGURE 1.9 CODE ADORESS FORMAT 



TYPE SEGMENT BITS PAGE BITS DISPLACEMENT BITS TOTAL BITS 



000 CURRENT CURRENT 

001 CURRENT CURRENT 
010 6 CURRENT 
Oil 6 CURRENT 

100 6 4 

101 6 4 
110 6 4 
HI NULL ADDRESS 



12 
16 
12 
16 
12 
16 
20 



15 
19 
21 
25 
25 
29 
33 



The Null Address (Type 111) is only used by the CASE operator and 
the length of the other fields is the same as the length of those 
fields in the other arguments to the case. The other fields are not 
used and are all zero. 
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CONTROL STACK MECHANISM 



* * 

* * 

* ww* * CON 

* .ww * STA 

* www * 

* www * 

* www * 

* 20 Bits *. 4 * 4 * 20 Bi ts * 

* * - * - * * < * 

* NAME STACK POINTER* * * VALUE STACK POINTER* 
************************************************** 

* * 

* * 

EXITED LEXIC LEVEL*** ***ENTERE0 LEXIC LEVEL 



TROL 
CK 



CONTROL 

STACK 

POINTER 



CURRENT CONTROL REGISTER 



20 Bits U Bits A Bits 20 Bits 

****************************************************************** 

* * * * * 

* CURRENT NAME STACK PTR* * * CURRENT VALUE STACK PTR * 

* * * * * 

****************************************************************** 

* * 

* **FILLER 
CURRENT LEXIC LEVEL**** 
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The following SOL declaration is used by algorithms shown under the 
operators which affect the CONTROL STACK. 



DECLARE 

01 CONTROL. STACK <CS.SIZE) BITC48)* 

02 CS.NSP BIT(20)> 

02 CS. EXITED. LL BITC4)*. 

02 CS. ENTERED. LL BITC4), 

02 CS.VSP BITC20)* 



01 CURRENT. CONTROL 
02 CURRENT. NSP 
02 CURRENT. LL 
02 FILLER 
02 CURRENT. VSP 



B1TC48), 

BITC20)* 

BIT(4)i. 

BITC4), 

BIT(20), 



ccsp^tcsp) fixed; 



csp:=o; 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



1-17 

COMPANY CONFIDENTIAL 

B1700 SOL S-LANGUAGE 

P.S. #2201 2389 



The SOL operators that use the CONTROL STACK mechanism ares 



MK5 - MARK STACK 

COFM - CONSTRUCT DESCRIPTOR, FORMAL 

CDFC - CONSTRUCT DESCRIPTOR, FORMAL CHECK 

MKU - MARK STACK AND UPDATE 

EXIT - EXIT 

RTRN - RETURN 

RTNC - RETURN FORMAL CHECK 

XTEI - EXIT, ENABLE INTERRUPTS 
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IN-LINE DESCRIPTOR FORMATS 

FOR CONSTRUCT DESCRIPTOR OPERATORS 

SIMPLE DESCRIPTOR 



8 BITS 6/17 BITS 6/17 BITS 
***************************************** 
* TYPE * LENGTH * FILLER * 
***************************************** 

* 

*** OPTIONAL 



Notes: 



1. 



The filler option is present only when bit of the 
type field is on (=1 ) . 



2. Bit 2 of the type field is off (=0). 



ARRAY DESCRIPTOR 



8 BITS 6/17 BITS 6/17 BITS 

*********************************************** 

* TYPE * LENGTH OF ENTRY * FILLER * 
*********************************************** * • • 

* 

OPTIONAL 

* 

********************************* 
* * 

6/17 BIT5 8 BITS 6/17 BITS 

*********************************************** 

* LENGTH BETWEEN * * NUMBER OF ENTRIES * 
*********************************************** 

* 
* 

*** For paged arrays* this is the 
number of bits of the subscript 
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Notes : 



needed to obtain the page 
subscript (See AL: Array Load). 



1. The filler option is present only when bit of the 
type field is on (=1). 

2. The length between option is present only when bit 
three of the type field is off (=0). 

3. Bit two of the type field is on (=1). 

4. The page subscript size field is present only when bit 
six of the type field is on. 

5. If bit six of the type field is on# then bits zero and 
three will be off. 

6. The fields marked "6/17 BITS" are encoded as follows: 

F i rst Bi t Meani ng 



5 bits f ol low 
16 bits follow 
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USE OF THE EVALUATION STACK 



Many of the SDL S-ops take operands from or leave results on the 
EVALUATION STACK. In fact, only the descriptor of the operand is on 
the EVALUATION STACK itself while the data* that is* the value of 
the operand, may be in the descriptor or elsewhere in the 
base-limit area. Conceptually, however, it is an operand with which 
the S-op is dealing. There are two classes of operands or 
which may be on the EVALUATION STACK: 



results 



Address operands: 



The descriptor is a pointer to the value of a declared 
data item. The descriptor on the EVALUATION STACK is 
non-self-relative and its name-value bit is off. This type 
of operand is appropriate for use as the destination of an 
S-op which moves data. 

Value operands: 

There are two classes of value operands. 
Sel f-relat i ve : 

The descriptor on the EVALUATION STACK is marked 
self-relative and its name-value bit is off. 
Instead of the address field of the descriptor 
being a pointer to the data, the data itself is 
contained in the address field of the descriptor. 

Non-sel f-relat i ve: 

The descriptor on the EVALUATION STACK is marked 
non-self-relative and its name-value bit is on. 
The data is on top of the VALUE STACK, located by 
the address field in the descriptor, 
type of operand is removed from the 
STACK* its value is removed from the 
as well. 



When this 
EVALUATION 
VALUE STACK 



Value operands are temporary values as opposed to 
variables of the program. 



actua I 
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A particular S-op often requires that its operands be of a 

particular class. It does not make sense* for example* 

destination operand of a STOO (store destructive) 

operand. Some S-ops put other restrictions on 

usually concerning type or length. Unless specifically indicated* 

these restrictions are not checked by the interpreter but* 

met* the results of the operation are undefined. 



for the 
to be a value 
their operands* 
icated* 
if not 
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INSTRUCTION SET 



Up codes are four* six* ten or thirteen bits in length. The lengths 
have been assigned according to static frequency of the S-op* thus 
compacting code space as much as possible- 



RELATIONAL OPERATORS 

NAME 

EQUAL TO 

LESS THAN 

LESS THAN OR EQUAL TO 

GREATER THAN 

GREATER THAN OR EQUAL TO 

NOT EQUAL TO 



MNEMONIC 


EQL 


LSS 


LEQ 


GTR 


GEQ 


NEQ 



OP CODE 

1010 01 
1111 01 1010 
1111 00 1110 
1111 00 1001 
1111 00 1101 
1010 10 



ARGUMENTS 



ARITHMETIC OPERATORS 

NAME 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

MODULO 

REVERSE SUBTRACT 



MNEMONIC 

ADD 
SUB 
MUL 
DIV 
MOO 
RSUB 



OP CODE 

1011 01 
1011 10 
1111 00 0101 
1111 00 0110 
1111 00 0111 
1111 10 1100 
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REVERSE DIVIDE 

REVERSE MODULO 

NEGATE 

CONVERT TO DECIMAL 

CONVERT TO BINARY 



RDIV 


1111 


10 


1101 


RMOD 


mi 


10 


1110 


NEG 


mi 


01 


0111 


DEC 


mi 


10 


1000 


BIN 


1111 


10 


1001 



EXTENDED ARITHMETIC OPERATORS 



NAME 

EXTENDED ADD 

EXTENDED SUBTRACT 

EXTENDED MULTIPLY 

EXTENDED DIVIDE 

EXTENDED MODULO 



MNEMONIC 


XADD 


XSUB 


XMUL 


XDIV 


XMOD 



OP COOE 



ARGUMENTS 



1111 1 

1111 1 

1111 1 

1111 1 

1111 1 



1100 Oil 

1100 100 

1100 101 

1100 110 

1100 111 



LOGICAL OPERATORS 



NAME 

A>*D 

GR 

EXCLUSIVE-OR 

NOT 



MNEMONIC 


OP 


CODE 


AND 


nil 


00 0001 


OR 


mi 


00 0000 


EXOR 


mi 


00 0010 


NOT 


mi 


00 1011 
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STRING OPERATORS 



NAME 

CONCATENATE 
SUBSTRING ONE 
SUBSTRING TWO 
SUBSTRING THREE 



MNEMONIC 

CAT 
SSI 
SS2 
SS3 



OP COOE 

1100 11 

1111 11 0100 

1111 00 1000 

1010 00 



T,V#Q#L 

T,V 

T,V 



STORE OPERATORS 



NAME MNEMONIC 

STORE DESTRUCTIVE STOD 

STORE NON-DESTRUCTIVE LEFT SNDL 

STORE NON-DESTRUCTIVE RIGHT SNDR 



OP CODE 
0010 
1010 11 

mi oo oioo 



ARGUMENTS 



CONSTRUCT DESCRIPTOR OPERATORS 



NAME 



MNEMONIC 



OP COOE 



ARGUMENTS 



CONSTRUCT DES. BASE ZERO CDBZ 

CONSTRUCT DES. LOCAL DATA CDLD 

CONSTRUCT DES. FORMAL CDFM 

CONSTRUCT DES. FORMAL CHECK CDFC 



CONSTRUCT DES. FROM PREV. 



CDPR 



111 10 0100 

110 00 

111 01 0001 



DESCRIPTOR 

Nf DES#1*..«* 
DES#n 

LL,E 



111 11 1101 000 LL*E,0ES#1»..., 

OES#n 



110 10 



N* DESfl*...* 
DES#N 
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CONSTRUCT OES. FROM PREV 
& ADO 



CONSTRUCT OES, FROM PREV. 
& MULTIPLY 



CONSTRUCT DES. REMAPS 
CONSTRUCT OES. DYNAMIC 



CDAD 



CDMP 



CONSTRUCT DES. LEXIC LEVEL COLL 



CDRM 
CDOY 



1110 01 

1111 10 0101 
1111 10 0011 



N* DESfflr...* 
DESfn 



NsDESfl*...* 
DES#n 

TYPE-LL-OC, 
DESCRIPTOR 



1111 00 1111 DESCRIPTOR 
1111 11 1110 000 TYPE 



LOAD OPERATORS 



NAME 

MAKE DESCRIPTOR 

VALUE DESCRIPTOR 

DESCRIPTOR 

NEXT OR PREVIOUS ITEM 

LOAD 

LOAD ADDRESS 

ARRAY LOAD VALUE 

ARRAY LOAD ADDRESS 

INDEXED LOAD VALUE 

INDEXED LOAD ADDRESS 

LOAD LITERAL 



MNEMONIC 

MDSC 

VDSC 

OESC 

NPIT 

L 

LA 

AL 

ALA 

IL 

ILA 

LIT 



OP CODE 

1111 10 1010 

1111 01 1000 

1100 10 

mi oi noi 

1101 00 
0000 

1111 01 1100 

1101 01 

mi oi oooo 

0001 
0100 



ARGUMENTS 



TYPE-LL-OC 

V* TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE* LENGTH, 
LITERAL 



LOAD NUMERIC LITERAL 



LITN 



0011 



LITERAL 
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LOAD NUMERIC ZERO 
LOAD NUMERIC ONE 



ZOT 

ONE 



0101 
0110 
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STACK OPERATORS 



NAME MNEMONIC 



BUMP VALUE STACK POINTER BVSP 

OUPLICATE DUP 

DELETE DEL 

EXCHANGE XCH 

FORCE VALUE STACK FVS 



OP CODE 

1111 10 1011 

1100 00 

1111 00 0011 

1011 00 

1100 01 



ARGUMENTS 



PROCEDURE OPERATORS 



NAME 



CALL 



IF THEN 



IF THEN ELSE 



CASE 



UNDO 

UNDO CONDITIONALLY 

RETURN 

RETURN FORMAL CHECK 



MNEMONIC 



CALL 



IFTH 
IFEL 
CASE 



UNDO 
UNDC 
RTRN 
RTNC 



OP CODE 
0111 
1001 
1101 10 
1111 01 0100 



1000 

1111 01 0011 

1111 01 0101 



ARGUMENTS 

TYPE-SEG- 
PAGE-DISP 

TYPE-SEG- 
PAGE-DISP 

ADDR TYPE*TYPE- 
SEG-PAGE-DISP 

# OF ADDR* ADDR 
TYPE* TYPE-SEG- 
PAGE-DISP*...* 
TYPE-SEG-PAGE- 
DISP 

U OF LEVELS 

# OF LEVELS 

# OF LEVELS 



1111 11 1101 001 # OF LEVELS, 
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EXIT EXIT 

CYCLE CYCL 

MARK STACK MKS 

MARK STACK AND UPDATE . MKU 
ENABLE-DISABLE INTERRUPTS EOI 

EXIT-ENABLE INTERRUPTS XTEI 

CO-ROUTINE ENTRY CNTR 

CO-ROUTINE EXIT CXIT 



TYPE#LENGTH 

1101 11 # OF LEVELS 

1110 11 DISPLACEMENT 
1011 11 

1111 01 1111 
ltll 11 0101 
1111 11 0110 
1111 11 1010 000 
1111 11 1010 001 # OF LEVELS 



LL 

V 

V## OF LEVELS 



SEARCH & SCAN OPERATIONS 



NAME 

SEARCH SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 
THREAD VECTOR 
INITIALIZE VECTOR 
SORT STEP DOWN 
SORT SWAP 
SORT UNBLOCK 
DELIMITED TOKEN 



MNEMONIC 


SSS 


SLL 


SSL 


SSCH 


TVEC 


IVEC 


SSD 


SSWP 


UBLK 


DTKN 



OP CODE 



ARGUMENTS 



1110 001 

1010 COMPARE TYPE 

1000 000 COMPARE TYPE 

1011 100 
1011 001 
1011 000 
1011 010 
1011 101 
1011 Oil 

1001 001 TYPE-LL-OC* 

DELI* 0EL2 
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1111 11 1001 000 TYPE-LL-OC* 

SEPARATOR* V 

1111 11 1001 010 TYPE-LL-OC 

1111 11 1001 100 

1111 11 1110 101 

1111 11 1001 Oil 



MISCELLANEOUS OPERATORS 

NAME MNEMONIC 

TRANSFER MESSAGE XFRM 

HASH CODE HASH 

SWAP SWAP 

FETCH FECH 

FETCH AND SAVE FECS 

DISPATCH DISP 

HALT HALT 

READ CASSETTE RDCS 

LENGTH LENG 

LOAD SPECIAL LSP 

CLEAR ARRAY CLR 

COMMUNICATE COMM 

REINSTATE REIN 

FETCH CMP FCMP 



OP CODE 



ARGUMENTS 



1111 11 1010 010 OEST. VARIABLES 

SOURCE VARIABLE 

1111 11 1000 001 

1111 01 0110 

1111 00 1100 

1111 11 1110 Oil 

1111 01 1011 

1111 11 0010 

1111 01 0010 

1111 10 0000 

1111 01 1110 VARIANT 

1111 10 0111 

1111 10 0110 

1111 10 0001 

mi io ooio 
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DATA ADDRESS 

SAVE STATE 

HARDWARE MONITOR 

OVERLAY 

PROFILE 

PARITY AODRESS 

EXECUTE 

COMMUNICATE WITH GISMO 

ADD TIMER 

SUBTRACT TIMER 



ADDR 111 


1 01 


1001 




SVST HI 


1 11 


0001 




HMON 111 


1 11 


0011 




OVLY HI 


1 11 


0000 




PRFL 111 


1 10 


1111 




PADR 113 


il 11 


0111 




EXEC 111 


LI 11 


1110 


010 


CWG 111 


LI 11 


1110 


110 


ADDT 113 


LI 11 


1100 


000 


SUBT HI 


LI 11 


1100 


001 



ENTRY NUMBER 
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RELATIONAL OPERATORS 



NAME 

EQUAL TO 

LESS THAN 

LESS THAN OR EQUAL TO 

GREATER THAN 

GREATER THAN OR EQUAL TO 

NOT EQUAL TO 



MNEMONIC 


EQL 


LSS 


LEQ 


GTR 


GEQ 


NEQ 



OP CODE 

1010 01 

1111 01 1010 

1111 00 1110 

1111 00 1001 

nil oo noi 

1010 10 



ARGUMENTS 
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RELATIONAL OPERATORS 



Syntax: 



* EQL * NEQ * 
************* 

* GTR * LSS * 
************* 

* GEQ * LEO * 
************* 



EQL 
NEQ 
GTR 
LSS 
GEQ 
LEQ 



Equal to (=) 

Not equal to (_) 

Greater than (>) 

Less than (<) 

Greater than or equal to (•) 

Less than or equal to (\> 



Format 



EQL 
*********** 

* 1010 01 * 
*********** 

OP-Code 



NEQ 
*********** 

* 1010 10 * 

*********** 

OP-Code 



GTR 
**************** 

* 1111 00 1001 * 
**************** 



OP-Code 



GEQ 
**************** 

* mi oo 1101 * 
**************** 

OP-Code 



LEQ 
**************** 

* 1111 00 1110 * 
**************** 

OP-Code 



LSS 
**************** 

* 1111 00 1010 * 
**************** 

OP-Code 



Two operands are expected to be on top of the 
EVALUATION STACK. The lower operand is considered to 
be on the left side of the relation* while the top 
operand is considered to be on the right*. 
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b- The relational operators do a comparison between two 
operands of any data type. The operands are removed 
from the stack and a self-relative descriptor of a 
1-bit result is returned whose value is: 

1. When the condition is true - 9(1)19 

2. When the condition is false - 3(1)03 



When both operands are FIXED* the operator does a 
signed arithmetic compare- 



true 



d. When both operands are character strings* the compare 
is done from left to right* using blank fill on the 
right for the shorter string. 



are 



For all other operand combinations leading zeros 
supplied to the shorter of the two fields. No sign 
analysis is done and the operands are treated as 
positive magnitudes* 
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ARITHMETIC OPERATORS 



NAME 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

MODULO 

REVERSE SUBTRACT 

REVERSE DIVIDE 

REVERSE MODULO 

NEGATE 

CONVERT TO DECIMAL 

CONVERT TO BINARY 



MNEMONIC 


OP 


CODE 


ADD 1 


LO 11 


01 




SUB 1 


LOU 


10 




MUL 1 


LIU 


00 


0101 


DIV 1 


LIU 


00 


OHO 


MOD 1 


LIU 


00 


0111 


RSUB 1 


LIU 


10 


1100 


RDIV 1 


LIU 


10 


1101 


RMOD 3 


LIU 


10 


1110 


NEG 1 


LIU 


01 


0111 


DEC 


LIU 


10 


1000 


BIN j 


LIU 


10 


1001 
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ARITHMETICS 



************* 

* ADD * SUB * 
************* 

* MUL * DIV * 
************* 

* MOD * * 
************* 



ADDITION 

SUBTRACTION 

MULTIPLICATION 

DIVISION 

MODULO 



Syntax 



ADD 
SUB 
MUL 
DIV 
MOD 



Format : 



ADD 
*********** 

* 1011 01 * 

* ** ** * * ** ** 

OP-Code 



SUB 
*********** 

* 1011 10 * 
** ****** ** * 

OP-Code 



MUL 
**************** 

* 1111 00 0101 * 
************* * * * 
OP-Code 



DIV 
**************** 

* 1111 00 0110 * 
**************** 
OP-Code 



MOD 
**************** 

* 1111 00 0111 * 
**************** 

OP-Code 
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Fund i on: 



Two operands are expected on the EVALUATION STACK. 

1. The bottom operand is considered to be on the 
"left"' side of the operator. 

2. The top operand is considered to be on the "right 



b. The arithmetic operators perform 24-bit arithmetic on 
two operands. These operands may be of any data type. 



Sign analysis wilt only be done if both operators are 
of type FIXED. With any other data type combinations* 
the magnitudes of the operands are evaluated. 



d. For bit and character data* if the field is greater 
than 24 bits* only the low order 24 bits will be 
evaluated. When the field is less than 24 bits* zeros 
will be supplied on the left. 



e. Both operands arQ cut back. 



f. A 24 bit self-relative result is returned to the 
EVALUATION STACK. When both operands are type FIXED* 
the result will be type FIXED. In all other instances 
the result will be of type BIT. 



ADO performs integer addition (♦) 

SUB performs integer subtraction (-) 

MUL performs integer multiplication (*) 

DIV performs integer division (/) 



h. DIV results in an integer value. Any remainder is 
truncated. 
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17/8 = 2 

3/7 = 

-7/3 =-2 



The MOD operation is division resulting in the integer 
value of the remainder. It is evaluated by the 
f ol lowing f ormu la> 

Y MOD Z = Y-((f/Z)*Z)» using integer value of h. above 



For examp le : 

7 MOD 3 = 7-((7/3)*3) = +1 
-7 MOD 3 = (-7)-(((-7)/3)*3) = -1 

3 MOD -7 = 3-C(3/(-7))*(-7)) = 3 
-3 MOD -7 = C-3)-(((-3)/(-7))*C-7)) = 



-3 



Note that this is NOT the same as the conventional 
mathematical definition of MOD. 
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CONVERT TO BINARY 



* BIN * 

* **** ** 



S y n t a x 



BIN 



h ormat 



**************** 

* 1111 10 1001 * 

**************** 

OP-Code 



Tunc t i on : 



An operand of one (1) to eight (8) characters is 

expected on the EVALUATION STACK. 



b. These characters are assumed to 
digit character s. 



be numeric decimal 



c • 



The characters are treated as the decimal 
representation of an unsigned integer and are 
converted to the corresponding positive 24-bit binary 
number • 



d. A self-relative descriptor* of type BIT is left on the 
EVALUATION STACK with the binary value. 
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CONVERT TO DECIMAL 



******* 

* DEC * 

* ** **** 



Syntax: DEC 



Format 



**************** 
* 1111 10 1000 * 
********* ****** * 

OP-Code 



Funct i on: 



a. Two operands are expected to be on the EVALUATION 
STACK, 

1. The top operand should yield a value of one (1) 
to eight (8). 

a) If not 1~8» a value of eight (8) will be used. 

2. The second operand should be 24 bits in length. 

a) If less than 24 bits* zero fill is provided 
on the lef t . 

b) If more than 24 bits* then only the low order 24 
bits will be used. 

b. The 24-bit value is assumed to be type BIT* i.e. 
uns i gned. 

c. Both operands are cut back. 



d. Depending upon the value of the top descriptor on the 
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EVALUATION STACK a 1 to 8 character result is left on 

top of the EVALUATION and VALUE STACKS, These 

characters are the decimal representation of the 
24-b i t value. 



e. Leading zeros in the result are not changed to blanks* 
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NEGATE 



******* 
* NEG * 



Sy nt ax 



NEG 



Format : 



**************** 

* 1111 01 0111 * 
**************** 

GP-Code 



Func t i on: 



This operator pops an operand off the EVALUATION 
STACK* negates it* and pushes it back on top of the 
EVALUATION STACK as a FIXED* se I f -r et a t i ve result 
which is the two's complement of the operand. 



Operands of any type other than FIXED are treated as 

FIXED. 

1. Data items shorter than 24 bits are padded 
on the left with zeros (0). 

2. Data items longer than 24 bits are left-truncated 
and treated as FIXED. 
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REVERSE ARITHMETICS 



*************** 

* RSUB * RDIV * 
*************** 

* RMOD * * 
*************** 



Syntax: RSUB 
ROI V 
RMOD 

Format : 



RSUB 
**************** 

* mi 10 noo * 
*********** ***** 

OP-Code 



ROIV 
**************** 

* nil 10 1101 * 
***************** 

OP-Code 



RMOD 
**************** 

* 1111 10 1110 * 
*************** 

OP-Code 



Func t i on 



a. These operators perform the same operation as their 
corresponding "forward" operators. The only difference 
is the order of the operands in the EVALUATION STACK. 

1. Reverse subtract: The second operand in the 
EVALUATION STACK is subtracted from the operand on 

top of the stack. 



Reverse divide: 
EVALUATION STACK 
top of the stack. 



The second operand in 
is divided into the operand 



Reverse modulo: The second operand in 
EVALUATION STACK is divided into the operand 
top of the stack to obtain the residue. 



the 
on 



the 

on 
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EXTENDED ARITHMETIC OPERATORS 



NAME 

EXTENDED ADD 

EXTENDED SUBTRACT 

EXTENDED MULTIPLY 

EXTENDED DIVIDE 

EXTENDED MODULO 



MNEMONIC 


OP CODE 
1111 11 1100 


on 


ARGUMENTS 


XADD 




XSUB 


1111 11 1100 


10 




XMUL 


111! 11 1100 


101 




XDIV 


1111 11 1100 


110 




XMOD 


mi ii lioo 


111 
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EXTENDED ARITHMETIC OPERATORS 



*************** 

* XAOD * XSUB * 
*************** 

* XMUL * XOIV * 



XMOD 



Sy nt ax : 



XADD 
XSUB 
XMUL 
XDIV 
XMOD 



Format : 



XADD 
*********** ********* 

* 1111 11 1100 Oil * 
******************** 

OP-Code 



XSU8 
****** ************** 

* 1111 11 1100 100 * 
******************** 

OP-Code 



XMUL 
******************** 

* 1111 11 1100 101 * 
*************** * * * * * 

OP-Code 



XDIV 
******************** 

* mi n noo no * 
******************** 

OP-Code 



XMOD 
******************** 

* nil n noo in * 
******************** 

OP-Code 
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Func t i on : 



Two operands are expected to be on the EVALUATION 
STACK. 



b. The operands are popped from the EVALUATION STACK and 
the indicated operation is performed on the operands. 



c. The operands are always treated as bit strings. 



d. The result returned on the top of the EVALUATION STACK 
is non-self-relative* type BIT. 



e. Addition/ Sub traction 

1. If the two operands are of different lengths* then 
the shorter is padded on the left with binary 
zeros. 

2. The length of the sura/difference will be equal to 
the length of the longer operand. 



f . Mul t i pi icat i on 

1. The length of the product will be the sum of the 
lengths of the two operands. 



g. Division/Modulo 

1. The length of the result will be the length of the 
di v i dend. 

2. For the Modulo operator* the dividend must be 
non-sel f-re lat i ve. 
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LOGICAL OPERATORS 



NAME 

AND 

OR 

E.XCLUSIVE-OR 

NOT 



MNEMONIC 

AND 
OR 

EXOR 
NOT 



OP COOE 

1111 00 0001 

1111 00 QOOO 

1111 00 0010 

1111 00 1011 
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LOGICAL OPERATORS 



************** 

* AND * EXOR * 
************** 

* OR * * 
************** 



Syntax: AND 
OR 
EXOR 



Format : 

AND 
**************** 

* 1111 00 0001 * 
**************** 

OP-Code 



OR 
**************** 

* 1111 00 0000 * 
**************** 

OP-Code 



EXOR 
**************** 

* 1111 00 0010 * 
**************** 

OP-Code 



Func t i on 



w NOT w is unary operator and is explained separately. 
All other logical operators expect two operands to be 
on the EVALUATION STACK. 

The operands* regardless of their type* are operated 
upon bit by bit* starting from the right. When the 
operators are of unequal length the shorter one is 
padded on the left with zeros. 



The length of the result is the length of the longer 
operand. When the result is 24 bits or less* the 
result is se If -re la t i ve . on the VALUE STACK. 



d. The result is always type BIT 



The two operands are cut back from the EVALUATION 
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STACK and the result is pushed 
STACK. 



onto the EVALUATION 
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LOGICAL NOT 



******* 

* NOT * 

* ****** 



Syntax: NOT 



Format 



**************** 
* 1111 00 1011 * 

**************** 

OP-Code 



Funct i on: 



This operator expects one operand to be on the top of 

the EVALUATION STACK, 



b. The result is of the same type and length as the 

operand* but each bit representing the result value is 

the one's complement of the corresponding bit of the 
operand. 



c. If the operand is sel f-re tat i ve# the result will be 
self-relative* otherwise* the result will be 
non-self-relati ve. 
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STRING OPERATORS 



NAME 

CONCATENATE 
SUBSTRING ONE 
SUBSTRING TWO 
SUBSTRING THREE 



MNEMONIC 


OP 


CODE 




CAT 


1100 


11 




SSI 


1111 


11 0100 


T»V,Q,L 


SS2 


mi 


00 1000 


T#V 


SS3 


1010 


00 


T,V 
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STRING CONCATENTATION 



Syntax: CAT 



Format : 



* ** ** ****** 

* 1100 11 * 
*********** 

OP-Code 



I- unc t i on 



******* 

* CAT * 
******* 



This operator pops two operands off the EVALUATION 
STACK and generates a new descriptor that describes 
the concatentat ion of the two strings. The next-to-top 
operand must be non-self-relative* name-value bit on. 



b. When the source data items are of type CHARACTER* the 
results will be type CHARACTER. 



All other data type 
to be of type BIT. 



combinations will cause the result 
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SUBSTRING* ONE PARAMETER 

******* 

* SSI * 
******* 

Syntax: <String Type BitxLoad Type Bit> 
<Offset><Length> 



Format : 



*********************************************************** 

* 1111 11 0100 * * * * * 
*********************************************************** 

OP-Code * * * * 

* * * * 

* * * *** 6 or 17 Bits 

* * * Specifies length 

* * * 

* * * 

* * *** 6 or 17 Bi ts 

* * Speci ties of f set 

* * 

* * 

* *** 1 Bit = Load Address 

* 1 = Load Value 
* 



*** 1 Bit = Length in bits 

1 = Length in character 



The Offset and Length fields are encoded as follows: 



1. If the first bit in these fields is equal to (0) then 
5 bits follow. 



2. If the first bit in these fields is equal to (1) then 
16 bits f ol low. 
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Func t i on 



This operator functions the same as SS3 except that 
the offset and length fields are Literals which follow 
in-line* rather than values on the EVALUATION STACK. 
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SUB-STRING, TWO PARAMETERS 



* SS2 * 
******* 



Syntax: SS2 <String Type BitxLoad Type Bit> 



Format: 



***************************** 
* 1111 00 1000 * * * 
***************************** 

OP-Code * * 

* * 

* * * * 1 b i t » 

* 
* 
* 
*** 1 bit* 



= Load Address 

1 = Load Value 



= Length in bits 

1 = Length in characters 



Funct i on : 



Two operands are 
EVALUATION STACK. 



expected to be found 



on 



the 



1. The top operand is the offset in bits or 
characters of the substring from the beginning of 
the string. If longer than 24 bits, only the tow 
order 24 bits are ased. 

2. The next operand is the string. It may be of any 
type. It must not be self-relative. If load type 
bit is 0, then it must be an address (i.e. 
name-value bit off). 



b. The two operands are then cut back and 
left on the EVALUATION STACK. 



r esul t is 



1. Type: 



3-25 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

B1700 SDL S-LANGUAGE 

P»S. #2201 2389 



a ) String type bit = 
String type b i t = 1 



then bi t 

then character 



b) Load type bit = then address 

Load type bit = 1 then value (self-relative 

if length is 24 bits or less) 



2. Length: 



a) Length is equal to the original length of 
string minus the offset. 

Address : 



the 



a) Load type bit = then the address 
equal to the old string address 
off set. 



in bits is 

plus the 



b) Load type bit = 1 then the address is the 
address of the VALUE STACK if the substring 
length is greater than 24 bits. 

1) If the load type bit is set and substring 
length is greater than 24 bits* the 
substring is loaded to the top of the 
VALUE STACK. 

2) If the load type bit is set and the 
substring length is less than or equal to 
24 bits the substring is loaded right 
justified into the address field of the 
top of the EVALUATION STACK. 

4. When the offset is greater than the length of the 
string* an error interrupt occurs. 
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SUB-STRING, THREE PARAMETERS 



* **** * * 

* SS3 * 
******* 



Syntax: SS3 <String Type BitxLoad Type Bit> 



Format : 



************* ************** 

* 1010 00 * * * 

* ** ******** **************** 

OP-Code * * 

* * 

* *** i bit* = Load address 

* 1= load value 
* 

* 

*** 1 bit* = length in bits 

1 = length in characters 



f'unct ion: 



Three operands are expected to be found on the 
EVALUATION STACK. 

1. The top operand is the length in bits or 
characters of the substring desired. 

2. The second operand is the offset in bits or 
characters from the beginning of the string. 

3. The third operand is the string. It may be of any 
type. It must not be self-relative. If load type 
bit is 0* then it must be an address (i.e. 
name-value bit off). 



b. All three operands are cut back and a result is left 

on the EVALUATION STACK. 
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Type: 
a) 



String type bit = then bit 
String type bit = 1 then character 



b) Load type bit = then address 

Load type bit = 1 then value (self-relative 

if length is 24 bits or less) 

Lengt h: 

a) Length is equal to the length of the string 

mi nus the offset. 



Address : 
a) 



Load type bit = then the address in bits is 
equal to the old string address plus the 
of f set. 



b) Load type bit = 1 then the address is the 

address of the top of the VALUE STACK if the 
substring length is greater than 24 bits. 

1) If the load type bit is set and the 

substring length is > 24 bits* the 

substring is loaded to the top of the 
VALUE STACK. 



2) If the load type bit is set and the 
substring is loaded right justified into 
the address field of the EVALUATION STACK. 

When the offset plus the length is greater than 
the length of the string* an error interrupt 
occurs . 
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STORE OPERATORS 



NAME MNEMONIC 

STORE DESTRUCTIVE STOD 

STORE NON-DESTRUCTIVE LEFT SNDL 

STORE NON-DESTRUCTIVE RIGHT SNDR 



OP CODE 
0010 
1010 11 
1111 00 0100 



ARGUMENTS 
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STORE NON-DESTRUCTIVE, DELETE LEFT 



******** 

* SNDL * 
** ****** 



Sy nt ax 



NDL 



Format 



* ** ** ** ** ** 

* 1010 11 * 
*********** 

OP-Code 



F unc t i on: 



This operator pops two operands off the 
EVALUATION STACK. 



top of the 



b. The top (destination) operand 

non-sel f -re lat i ve and the name-value bit 
i.e. it must be an address. 



must be 
must be of f # 



It then copies the data described by the second 
(source) descriptor into the location described by the 
top (destination) descriptor. 



d. When both the source and destination fields are of 
type CHARACTER* the data will be left justified in the 
destination field with either blank fill or truncation 
on the r i gh t. 



Any other source-destination field type combinations 
yield right justified data in the destination field 
with either zero fill or truncation on the left* This 
allows for type conversion and length truncation. 
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f. The source descriptor is then pushed back on to 
EVALUATION STACK. 



the 
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STORE NON-DESTRUCTIVE* DELETE RIGHT 



** ****** 

* SNDR * 
******** 



Syntax 



SNDR 



Format 



**************** 

* 1111 00 0100 * 
**************** 

OP-Code 



Func t i on: 



This operator pops two operands off the 
EVALUATION STACK. 



top of the 



b. The top (destination) operand 

non-set f-relat i ve and the name-value bit 
i.e. it must be an address. 



must be 
mus t be off* 



It then copies the data described by the second 
(source) descriptor into the location described by the 
top (destination) descriptor. 



When both the source and destination fields are of 
type CHARACTER* the data will be left justified in the 
destination field with either blank fill or truncation 
on the r i gh t. 



Any other source-destination field type combinations 
yield right justified data in the destination field 
with either zero fill or truncation on the left. This 
allows for type conversion and length truncation. 
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f. The destination descriptor is then pushed back on to 
the top of the EVALUATION STACK. (This is the only 
difference from SNOL). 
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STORE DESTRUCTIVE 



** ****** 

* STOD * 
** ** ** ** 



Sy nt ax 



STOD 



Format : 



******** 

* 0010 * 
******** 

OP-Code 



Funct i on: 



This operator pops two operands off the 
EVALUATION STACK. 



top of the 



b. The top (destination) operand must be 
non-set f-re lati ve and the name-value bit must be off* 
i.e. it must be an address. 



It then copies the data described by the second 
(source) descriptor into the location described by the 
top (destination) descriptor. 



When both the source and destination fields are of 
type CHARACTER* the data will be left justified in the 
destination field with either blank fill or truncation 
on the right. 



Any other source-destination field type combinations 
yield right justified data in the destination field 
with either zero fill or truncation on the left. This 
allows for type conversion and length truncation. 
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CONSTRUCT DESCRIPTOR OPERATORS 



NAME 



MNEMONIC 



OP CODE 



ARGUMENTS 



CONSTRUCT DES. BASE ZERO CDBZ 

CONSTRUCT DES. LOCAL DATA CDLD 

CONSTRUCT DES. FORMAL CDFM 

CONSTRUCT DES. FORMAL CHECK CDFC 

CONSTRUCT DES. FROM PREV. CDPR 



CONSTRUCT DES. FROM PREV. 
& ADD 



CONSTRUCT DES. FROM PREV. 
& MULTIPLY 



CONSTRUCT DES. REMAPS 
CONSTRUCT DES. DYNAMIC 



CDAD 



CDMP 



CONSTRUCT DES. LEXIC LEVEL CDLL 



CDRM 
CODY 



1111 10 0100 DESCRIPTOR 
1110 00 



1111 01 0001 



N> DES#1»...' 
OES#n 

LL,E 



1111 11 1101 000 LL#E»DES#1>...# 

DES#n 



1110 10 



1110 01 



1111 10 0101 
1111 10 0011 



N# DES#1*...' 
DES#N 



Up DESfl*...' 
DES#n 



N'OESfl*..-' 
DESfn 

TYPE-LL-OC* 
DESCRIPTOR 



1111 00 1111 DESCRIPTOR 
1111 11 1110 000 TYPE 
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CONSTRUCT DESCRIPTOR PREVIOUS and ADO 



******** 
* CDAD * 



Syntax: CDAD <# Descr i p t ors ><Descr i ptor xDescri ptor> 



Format : 



********************************* 
* 1110 01* * * * ... 
********************************* 
OP-Code * * * 

* ******* 

* * 

* * 

* *** Descriptors* variable size 

* (See in-line descriptor format) 
* 

* 

*** 5 Bi ts 

Specifies number of descriptors 



F unction: 



The number of descriptors indicates the number of 
in-line descriptors. These will be used to build 
descriptors on the NAME STACK. 



b. The descriptors may be simple or array. 



c. The address portion is generated from the "filler" 
field in the descriptor and information from the 
previous entry on the NAME STACK. 



d. The following formula is used: 
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A* = A+L + F 

1 . A* - is the new address part. 

2. A - is the address part of the previous descriptor 
generated on the NAME STACK, 

3. L - is the length part of the previous descriptor. 

4. F - is the "filler" field in the descriptor if it 
i s present • 



e. The operator must be able to find the address part of 
the previous entry whether it is a simple or array 
descr i ptor . 



f. The new and previous descriptors cannot be paged array 
descr iptors. 
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CONSTRUCT DESCRIPTOR BASE ZERO 



** ****** 

* CDBZ * 
******** 



Syntax 



CDBZ <descriptor> 



Format: 



************************** 

* 1111 10 0100 * * ' 

************************** 

OP-Code ■ * ■ 

* 
* 
*** Descriptor* variable si ze 

(See in-line descriptor format) 



F unct i on: 



A descriptor is generated on the NAME STACK with zero 
(0) in the address field and other fields specified by 
this in-line descriptor. 



b. Paged array descriptors are not allowed. 
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CONSTRUCT DESCRIPTOR DYNAMIC 



******** 
* CDDY * 



Syntax: CDDY <Type> 



Format 



******************************* 

* 1111 11 1110 000 * * 

******************************* 

OP-Code * 



Function*. 



*** 8 bits specifies type 

(See type field of in-line 
descriptor format) 



This operator constructs descriptors for dynamic 
arrays and dynamic character strings or bit strings. 

The type field follows the op-code# but the length and 
number of entries will be operands on the EVALUATION 
STACK. 



The descriptor will be marked as non-sel f-relat i ve# 
and* if array* will be marked contiguous. 



d. The procedure to build the descriptor is as follows: 

1. The type field is placed in the NAME STACK. 

2. The type field is tested for simple or array type. 
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For simple i terns: 

a) Item length is the only entry on 
EVALUATION STACK. 



the 



b) The length is popped off the EVALUATION STACK 
and placed in the NAME STACK. 

c) The VALUE STACK POINTER is used as the 
address • 

d) The VALUE STACK POINTER is updated by adding 
the length to it. 



For array i terns 

a) Length and number of entries will be in the 
EVALUATION STACK. 

b) The length is popped off the EVALUATION STACK 
and placed in the NAME STACK. 

c) Length between entries is the same as length. 

d) The number of entries is popped off the 
EVALUATION STACK and placed in the NAME STACK. 

e) The VALUE STACK POINTER is used as the 
address . 

f) The VALUE STACK POINTER is updated by 
multiplying the number of entries by the 
length and adding the result to the VALUE 
STACK POINTER. 
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CONSTRUCT DESCRIPTOR* FORMAL CHECK 



******** 

* CDFC * 
******** 



Syntax: CDFM <Lexic Le ve t><#Descr i ptor s> 

<Descri ptorxDe script or> 



Format : 

*********************************************************** 

* 1111 11 1101 000 * * * * * 

*********************************************************** 
OP-Code * * * * 

* * *********** 

* * * 

* * * 

* * Descriptors* variable size 

* * (See in-line descriptor format) 

* * 

* ******* /» Bits* specifies the number 



of 48 bit entries expected on 
the EVALUATION STACK. 



*********** 4 Bits* specifies the Lexic level 
(to be made current). 



Descr i ptor 



******************* 
* T * L * E * 
******************* 

* 
* 
*** * *** 

* 



TYPE FIELD 
********************************* 

* * 1 * * * * * * * 

********************************* 

12 3 4 5 6 7 
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Bits: = Always 

1 = Always 1 

2 = If array then 1 

3 = If array then 1* specifies that length 

between entries is equal 
to the length of entries 

4,5 = 00 BIT 

01 FIXED 

10 CHARACTER 

11 VARYING 

6 = If array bound varying then 1 

7 = If length of data varying then 1 



L = Length field - (6 or 17 bits)* Appears 

only if type bit 7 is equal to zero (0). 



E = Number of entries for array - (6 or 17 bits) 
Appears only if type bit 6=0 and 
type bit 2 = 1. 

Depending on the conditions in the type field* 
different fields appear in the in-line descriptor; 



Kind Array (A) 

Simple (S) 
Length varying (LV) 
Array bound varying (ABV) 



THEN: 
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KINO LV ABV FIELDS THAT APPEAR 
************************************************* 

* S * FALSE * * T, L * 

*********** ************************************** 

* S * TRUE * * T * 

************************************************* 

* A * FALSE * FALSE * T* L* E * 
************************************************* 

* A * FALSE * TRUE * T* L * 
************************************************* 

* A * TRUE * FALSE * T* E * 
************************************************* 

* A * TRUE * TRUE * T * 
************************************************* 



Function: Refer to CONTROL STACK Mechanism 



CS. ENTERED. LLCCSP-1) := CURRENT. LL := LL; 
OISPLAY(CURRENT.LL) := CURRENT. NSP* 

1. A previously executed MKS has initially set up 
CQNTROL.STACK(CSP-l). 

2. Since the format parameters have not been put on 
the NAME STACK* CURRENT. NSP has not yet been 
bumped. 



b. Descriptors for the actual parameters are expected to 
be on the EVALUATION STACK. 



The descriptors in the instruction are matched to 
descriptors in the EVALUATION STACK* starting with the 
last descriptor in the EVALUATION STACK and matching 
it with the first descriptor in the instruction. 



The descriptors* after comparison* are loaded to the 
NAME STACK. The EVALUATION STACK is cutback. The VALUE 
STACK is unchanged. 



e. When array bound varying is equal to 1 
bound is taken from the actual parameter. 



the array 
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When length varying is equal to 1* the length is taken 
from the actual parameter. 



When the data type is varying* the data type is taken 
from the actual parameter. 



h. When an array the actual array need not be contiguous. 
If it is* the formal and actual parameters must match 
identically. If there is a mismatch* an error 
interrupt occurs. 



i. For paged arrays* both the paged array bit and the 
page subscript size must be copied. 
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CONSTRUCT DESCRIPTOR FORMAL 



******** 
* CDFM * 



Syntax: CDFM <Lexic Level><# of ES entries> 



Format 



******************************** 
* 1111 01 0001 * * * 
******************************** 

OP-Code "* * 

* * 

* *** 4 Bits 

* t of EVALUATION STACK entries 

* 
* 



*** 4 Bi ts 

Lexi c level 



Function: Refer to CONTROL STACK Mechanism 



CS. ENTERED. LL(CSP-l) := CURRENT. LL := LL; 
DISPLAY(CURRENT.LL) := CURRENT. NSP; 

1. A previously executed MKS has initially set up 
CONTROL. STACK(CSP-l) 

2. Since the actual parameters have not yet been put 
on the NAME STACK* CURRENT. NSP has not yet been 
bumped. 



b. Descriptors for the actual parameters are expected to 

be on the EVALUATION STACK. 



c. The number (#) of EVALUATION STACK entries specified 
is transferred to the NAME STACK- CAn entry is always 
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48 bits; therefore* an array passed as a parameter 
will be considered as two 48-bit entries). 



d. If the name value bit is on* it is turned off 



e. COFM employs no form of parameter checking. 
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CONSTRUCT DESCRIPTOR LOCAL DATA 



* COLD * 



Syntax: CDLO <# Descr i ptor s><0escr i ptor><Descr i ptor> • 



Format : 



******************************************** 

♦1110 00* * * * • •• 
******************************************** 

QP-Code * * * 

* ********** 

* * 

* * 

* Descr ip to rs# variable size 

* (See in-line descriptor format) 
* 

*** 5 Bits 

Specifies number of descriptors 



Funct i on: 



a. The number of descriptors indicates the number of 
in-line descriptors. These will be used as models to 
build descriptors on the NAME STACK. 



b. The descriptors may be simple or array. 



The filler option of the in-line descriptor format can 
never be present. 



d. Array descriptors cannot have the length between 
entries option present. 
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e. When paged array is not indicated 

1. If the descriptor is to be 
value (address field) will be 



self-relat i ve* 
zero. 



its 



2. If non-sel f-re tat i ve* the current value of the 
VALUE STACK POINTER is used as the address field 
of the generated descriptor. The VALUE STACK 
POINTER is then increased by the total length of 
the data i t em . 



f. When a paged array is indicated. 

1. The page subscript size option will be 
present • 



2. The address field of the generated 
descriptor is set to 0. 
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CONSTRUCT DESCRIPTOR LEXIC LEVEL 



* CDLL * 
******** 



Syntax: CDLL <Data Addr ess><Descr i p tor> 



Format 



********************************** 
* 1111 01 0011 * LL*ON * * 
********************************** 

OP-Code * * 

* * 



*** Descriptor* variable size 

(See in-line descriptor format) 



*** Variable size* depending on 
the type bits in this field 



Func t i on 



a- This operator builds a descriptor on the NAME STACK 
using the in-line descriptor as a model. 



b. The data address is used to find a data descriptor in 
the NAME STACK* its address field is then used for the 
address field of the new descriptor. 



c. The data address will never reference a paged array 
descriptor. 
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CONSTRUCT DESCRIPTOR PREVIOUS & MULTIPLY 



* CDMP * 
***** *** 



Syntax: CDMP <#Descri ptor sxDescr i p torxDescr i ptor> 



Format : 



*************************************** 
* 1111 10 0101 * * . * * ... 

*************************************** 

OP-Code * * * 

* *** **** 

* * 

* * 

* *** Descriptors* variable size 

* (Refer to in-line descriptors) 
* 

*** 5 Bits-Specifies number of descriptors 



Func t i on: 



a. The number of descriptors indicates the number of 
in-line descr i ptor s. T hese will be used to build 
descriptors on the NAME STACK. 



b. The descriptors may be simple or array. 



The address field is calculated using the following 
formula: 

A' = A ♦ L + F + C(#E-1> * LB) 

1. A* - is the new address part. 

2. A - is the address part of the previous entry. 
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3. L - is the length part of the previous entry. 

*»• F - is the "filler" field in the descriptor, if it 

i s present. 

5. #E - is the "number of entries" part of the 
previous entry. 

6. LB - is the "length between" part of the previous 
entry • 



d. The previous entry is always assumed to be of type 
array. It will never be paged. 
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CONSTRUCT DESCRIPTOR FROM PREVIOUS 



******** 

* CDPR * 
** ****** 



Syntax: CDPR <#Descr i pt or sxDescr i p torxDescr i p t or> • • 



Format 



*************** ******** *********** 

* 1110 10 * * * * 

********************************** 

OP-Code * * * 

* ******* 

* * 

* Descriptors* variable size 

* 

* 



Func t i on: 



*** 5 bits 

Specifies number of descriptors 



The number of descriptors indicates the number of 
in-line descriptors. These will be used to build 
descriptors on the NAME STACK. 



b. The descriptors may be simple or array. 



c. The address portion is generated from the "filler" 
field in the descriptor and information from the 
previous entry on the NAME STACK. 



d. The following formula is used: 

A» = A+F 
1. A* - is the new address part 
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2- A - is the address part of the top entry on the 
NAME STACK 

3, F - is the "filler"* field in the descriptor if it 
i s present • 



e. The previous descriptor built may be either simple or 
array. 



f. The new and previous data descriptors cannot be paged 
arrays. 
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CONSTRUCT DESCRIPTOR REMAPS 



* CDRM * 
******** 



Syntax 



CDRM 



<Length-Check Var i ant><In-L ine Descriptor^ 



Format 



**************************** 

* 1111 00 1111 * * * 
**************************** 

QP-Code * * 

* * 

* *** Descriptor* (See in-line 

* descriptor format) 

* 
* 



F unction: 



*** 1 Bit = No length checking 
1 = Length checking 



This operator builds a descriptor on the NAME STACK by 
usi ng: 

1. The in-line descriptor information 

2. An address obtained from the address field of the 
descriptor on top of the EVALUATION STACK. 



When the length check variant is set CI) then the 
length in the i n- I ine descr iptor is compared to the 
length field of the descriptor on 
STACK. If it is greater a run time 
signalled. 



the EVALUATION 
error will be 



The descriptor on the EVALUATION STACK is removed. 



3-54 



BURROUGHS CORPORATION 
CUMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

81700 SOL S-LANGUAGE 

P.S. #2201 2389 



LOAD OPERATORS 



NAME 

MAKE DESCRIPTOR 

VALUE DESCRIPTOR 

DESCRIPTOR 

NEXT OR PREVIOUS ITEM 

LOAD 

LOAD ADDRESS 

ARRAY LOAD VALUE 

ARRAY LOAD ADDRESS 

INDEXED LOAD VALUE 

INDEXED LOAD ADDRESS 

LOAD LITERAL 

LOAD NUMERIC LITERAL 
LOAD NUMERIC ZERO 
LOAD NUMERIC ONE 



MNEMONIC 


OP 


CODE 


ARGUMENTS 


MDSC 


1111 


10 1010 




VDSC 


1111 


01 1000 




OESC 


1100 


10 


TYPE-LL-OC 


NPIT 


mi 


01 1101 


V* TYPE-LL-OC 


L 


1101 


00 


TYPE-LL-OC 


LA 


0000 




TYPE-LL-OC 


AL 


1111 


01 1100 


TYPE-LL-OC 


ALA 


1101 


01 


TYPE-LL-OC 


IL 


1111 


01 0000 


TYPE-LL-OC 


ILA 


0001 




TYPE-LL-OC 


LIT 


0100 




TYPE* LENGTH* 
LITERAL 


LITN 


0011 




LITERAL 


ZOT 


0101 






ONE 


0110 
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ARRAY LOAD VALUE 



****** 

* AL * 
** ** ** 



Sy nt ax 



AL <Data Address> 



Format: 



********* *************** 

* 1111 01 1100 * LLi-ON * 
************************ 

OP-Code * 

* 



Funct i on 



*** Variable size depending upon type 
bits in this field 



The Lexic Level* Occurrence Number pair (Data Address) 
is. used to address an entry in the NAME STACK. 

1. NAME STACKCOISPLAY(LL)fON) 



b. The low-order ZU bit field of the subscript on top of 

the EVALUATION STACK is compared to the -number of 

entries" field of the descriptor. If greater than or 
equal an invalid subscript error occurs. 



If the paged array bit of the descriptor 
paged ) then: 



is off (not 



1. The array descriptor is subscripted 
descriptor is generated on the 
EVALUATION STACK* describing a copy 
of the selected element of the 
descriptor will be self-relative if 
the 



and a simple 
top of the 
of the value 
array. This 
the length of 



value is less than 24 bits* otherwise it will 
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be non-sel f-re lat i ve» its name-value bit on* and 
the value on top of the VALUE STACK. 



d. Paged arrays only. 
1. 



If the address field of the descriptor is 0* (page 
table not yet allocated) then: 

a) The address of the current instruction (AL or 
ALA) is pushed onto the PROGRAM POINTER STACK. 

b) A copy of the subscript is pushed onto the 
EVALUATION STACK. 

c) The base-relative bit address (in the NAME 
STACK) of the paged array descriptor is pushed 
onto the EVALUATION STACK. 

d) The M-machine state is saved (in base-relative 
form) in RS.M. MACHINE. 

e) The segment* whose segment number is given in 
RS. INTRINSICS.LOC* is entered at displacement 
0. (This is the memory management intrinsic). 

f) Upon exit* execution will begin at Step a. 



2. The address field points to the first entry in the 
page table. The subscript is shifted to the right 
by the number of bits indicated by the page 
subscript size. The resulting number (the page 
table subscript) is used to access the page table 
entry . 

3. If the presence bit in the page table entry is off 
then: 

a) The address of the current instruction is 
pushed onto the PROGRAM POINTER STACK. 

b) A copy of subscript is pushed onto the 
EVALUATION STACK. 

c) The base-relative bit address of the page 
table entry is pushed on to the EVALUATION 
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STACK. 



d) Execution goes to Step 
manager is entered). 



d. 1. d ) • ( The memory 



4. The address field of the page table entry points 
to the page. The number of bits indicated by page 
subscript size is extracted from the low order 
bits of the subscript. 



5. This number (page subscript) is used to subscript 
into the page. A simple descriptor is generated on 
the top of the EVALUATION STACK as in Step c. 
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ARRAY LOAD ADDRESS 



* ALA * 
******* 



Syntax: ALA <Data Address> 



Format : 



******************* 

* 1101 01 * LL,ON * 
******************* 

OP-Code * 

* 



*** Variable size* depending upon the 
type bits in this field. 



F unc t ion 



The execution of ALA is identical to that of array 
load* except that the resulting descriptor on the 
EVALUATION STACK is always non-sel f -re la t i ve and 
points to the array element itself rather than a copy. 
( See step c.l of AD. 
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DESCRIPTOR 



** ****** 

* DESC * 
******** 



Syntax: DESC <Data Address> 



Format : 



******************* 

* 1100 10 * LL#ON * 
******************* 

OP-Code * 

* 

*** Variable size depending upon 
type bits in this field. 



F unc t i on 



The Lexic Level* Occurrence Number pair (Oata Address) 
locates a descriptor in the NAME STACK. The descriptor 
may be either simple or array. 



A descriptor (48 bits) is generated on the EVALUATION 
STACK that points to the descriptor in the NAME STACK. 
The length field of the new descriptor will be 48 or 
96 depending on the type of the descriptor in the NAME 
STACK. Its type will be BIT. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



3-60 

COMPANY CONFIDENTIAL 

B1700 SOL S-LANGUAGE 

P.S. #2201 2389 



INDEXED LOAD VALUE 



****** 
* IL * 
****** 



Syntax 



IL <Data Address> 



Format 



************************ 

* 1111 01 0000 * LL*ON * 
*********** ************* 

OP-Code * 

* 



*** Variable size depending on the 
type bits in this field. 



Funct ion 



The Lexic Level* Occurence Number pair (Data Address) 
locates a descriptor in the NAME STACK. 



b. The descriptor must be non-se If -r el at i ve 



c. When the descriptor is non-array* then* 

1. An operand (which is the index) is taken off the 
top of the EVALUATION STACK. A copy of the 
descriptor in the NAME STACK is then pushed onto 
the EVALUATION STACK and its address field is 
incremented by the index. 

2. The resulting address descriptor is then made a 
value by copying the data to the top of the VALUE 
STACK* changing the address field and setting the 
name- va lue bit. 
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d. When the descriptor is an array descriptor, 

1. Same as case c. above* except only the first 48 
bits of the NAME STACK descriptor are picked up 
and the array bit is turned off in the type field. 

2. The array descriptor cannot be type PAGED. 
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INDEXED LOAD AQDRE5S 



* ** ** * * 

* ILA * 
*** ** * * 



Sy nt ax 



ILA <Data Address> 



Format : 



**************** 

* 0001 * LL,ON * 
**************** 

OP-Code * 

* 

*** Variable size depending on the 
type bits in this field. 



Funct i on: 



Indexed load address functions the 
load value; the only difference 
resultant address descriptor is not 
value (Step c.2 of IL is omitted). 



same as indexed 
being that the 
converted to a 
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LOAD VALUE 



**** * 

* L * 
**** * 



Syntax: L <Oata Address> 



Format: 



******************* 

* 1101 00 * LL#QN * 
******************* 

OP-Code * 

* 

*** Variable size* depending on 
type bits in this field. 



Func t i on: 



The Lexic Level* Occurrence Number pair (data address) 
is used to address the NAME STACK. 



1. NAMESTACKCDISPLAYCCLD+ON) 

2. The descriptor at this location must not be 
array descriptor. 



an 



b. When the descriptor is self-relative or 

non-self-relative with a length less than or equal to 

24* a se I f -rel at i ve descriptor is put on the 
EVALUATION STACK. 



c. When the descriptor is non-se If -rel at i ve with a length 
greater than 24: 

1. The descriptor is copied to the top of the 
EVALUATION STACK with the address field modified 
to point to the top of the VALUE STACK. 
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2. The data item 'is moved to the top of the VALUE 
STACK. 



3. The VALUE STACK POINTER is bumped by the size of 
the data it ems. 
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LOAD ADDRESS 



****** 

* LA * 
****** 



Syntax: LA <Data Address> 



Format : 



**************** 

* 0000 * LL#ON * 
**************** 

OP-Code * 

* 

*** Variable size* depending on the 
type bits in this field. 



f unct i on: 



The L e x i c 
is used to 



Level* Occurence Number pair (Oata Address) 
address an entry in the NAME STACK. 



1. NAME STACKCDISPLAYCLD + ON) 



If the descriptor at 
the 96 bit descriptor 
STACK. 



that location is an 
is copied to the 



array type 
EVALUATION 



If the descriptor at 
then: 



that location is a non-array type 



1. If the data item is se If -relat i ve then build a 
descriptor on the EVALUATION STACK using the type 
and length from the NAME STACK and the address of 
the leftmost bit of the data item. Change the type 
of the new descriptor to non-self-relat i ve. The 
data itself remains in the address portion of the 
descriptor in the NAME STACK. 
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2. If the data item is non-se t f-relat i ve then the 48 
bit descriptor is copied to the EVALUATION STACK. 



3-67 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

81700 SOL S-LANGUAGE 

P.S. #2201 2389 



LOAD LITERAL 



* ****** 

* LIT * 
******* 



Syntax: LIT <Ty pexLeng t h><L i teral> 



Format: 



********************************** 

* 0100 * * * * 

********************************** 

OP-Code * * * 

* * * 

* * *** Literal* 24 bits if self-relative 

* * 

* * 

* *** Length of literal* 16 bits 
* 

* 

*** 8 bit descriptor type field tells if literal 
is self-relative or non-se I f -rela t i ve 



Function: 



This operator loads a constant to 
EVALUATION STACK. 



the top of the 



1. When the literal is self-relative (less than or 
equal to 24 bits) the operator pushes the type* 
length, and literal onto the top of the EVALUATION 
STACK. 

2. When the literal is non-self -ret at i ve* the type* 
length and VALUE STACK pointer are moved to the 
top of the EVALUATION STACK and the literal is 
placed on top of the VALUE STACK. 

3. For literals less than twenty four bits in length 
the <literal> field roust be twenty four bits long 
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in the code file even though the <length> field 
specifies that the actual data is less than twenty 
four bits in length. 
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LOAD NUMERIC LITERAL 



******** 

* LITN * 
******** 



Sy nt ax 



LITN <Literal> 



Format 



*************** 

* 0011 * * 

* ************** 

OP-Code * 

* 

*** 10 Bit Literal 



Func t i on: 



This operator loads a 10 bit literal to the top of the 
EVALUATION STACK as a FIXED* self-relative data item. 
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MAKE DESCRIPTOR 



******** 

* MDSC * 
******** 



Syntax: MDSC 



Format : 
**************** 

* 1111 10 1010 * 
*********** ***** 

OP-Code 



f unct i on: 



a. A descriptor is expected to be on the EVALUATION 
STACK. 



This descriptor must describe another descriptor. 



c. This second descriptor (48 or 96 bits) is copied to 
the EVALUATION STACK after cutting back the original 
descriptor. 
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NEXT OR PREVIOUS ITEM 



******** 

* NPIT * 
******** 



Syntax: NPIT <Next or Previous BitxData Address> 



Format : 



****************************** 

* 1111 01 1101 * * LL#ON * 
****************************** 

OP-Code * * 
* * 



*** Variable size* depending on 
type bits in this field. 



*** 1 Bit 

=> Previous 

1 => Next 



Function 



The Lexic Level* Occurrence Number pair (Data Address) 
describes a non-sel f -re lat i ve* non-array descriptor at 

NAMESTACK ( D ISPL A Y( LL ) + 0N ) 

**** ************** * 

* T * L * A * 
******************* 



b. The descriptor is then modified 



**** *************** 

* T« * L« * A» * 
****** ****** ******* 
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1 . Previ ous 

a) T» = T 

L» = L 

A» = A-L 

2. Next 

a) T» = T 

L» = L 

A 1 = A+L 



The modified descriptor replaces the old descriptor 
and a copy is also placed on the EVALUATION STACK. 
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LOAD NUMERIC ONE 



******* 

* ONE * 

* ** ** * * 



Syntax 



ONE 



format 



******** 

* 0110 * 
******** 

QP-Code 



I- unc t i on : 



This operator causes a FIXED* self-relative 
containing a one (1) to be placed on the 

STACK. 



descriptor 
EVALUATION 
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VALUE DESCRIPTOR 



******** 

* VDSC * 
** ** ** * * 



Syntax: VDSC 



Format : 



**************** 
* 1111 01 1000 * 

**************** 

OP-Code 



Func t i on: 



a. A descriptor is expected to be on the EVALUATION 
STACK. The following conditions are expected* but NOT 
checked : 

1. The name-value bit must be OFF. 

2. The non-self-relative bit must be ON. 

3. The descriptor is always 48 bits. 

b. The descriptor is moved to the VALUE STACK. 



The descriptor on the EVALUATION STACK is replaced by 
a 48 bit* non-self -rel at ive descriptor that points to 
the descriptor just moved to the VALUE STACK. 
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LOAO NUMERIC ZERO 



***** ** 

* ZQT * 
******* 



Sy nt ax 



ZOT 



Format 



******** 

* 0101 * 
******** 

OP- Code 



Function: 



This operator causes a FIXED* self-relative descriptor 
to be generated and placed on the EVALUATION STACK. 
The descriptor will contain the number zero* 
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STACK OPERATORS 



NAME MNEMONIC 



BUMP VALUE STACK POINTER BVSP 

DUPLICATE DUP 

DELETE DEL 

EXCHANGE XCH 

FORCE VALUE STACK FVS 



OP CODE 

1111 10 1011 
1100 00 
1111 00 0011 
1011 00 
1100 01 



ARGUMENTS 



Z'77 
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BUMP VALUE STACK POINTER 



******** 
* BVSP * 



Synt ax 



BVSP 



Format 



**************** 

* 1111 10 1011 * 
**************** 



OP-Code 



Func t i on: 



The descriptor on the top of the NAME 
simple* non-se t f -r elat i ve descriptor* 
the top of the VALUE STACK. 



STACK must be a 
that points to 



b. The low order 16 bits of the value described by the 

descriptor on the top of the EVALUATION STACK are put 

into the length field of the descriptor on top of the 
NAME STACK. 



c. The top of stack pointer for the 
incremented by this 16 bit value. 



VALUE STACK is 



NOTE: This operator is not generated by the SDL compiler after 
the I V.O release. 
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DELETE 



******* 

* DEL * 
******* 



Formats 



**************** 

* 1111 00 0011 * 
**************** 

OP-Code 



Function: 



The top descriptor on the EVALUATION STACK is deleted 
along with its associated value in the VALUE STACK if 
the name-value bit is on- 
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OUPLICATE 



* **** * * 

* DUP * 
******* 



Syntax: DUP 
Format: 



* ****** **** 

* 1100 00 * 

* **** ** **** 

OP-Code 



Funct i on: 



This operator takes the 48 bit (simple) descriptor on 
the top of the EVALUATION STACK* duplicates it exactly 
and pushes it onto the top of the EVALUATION STACK. 



b. If the name-value bit is 
will not be duplicated. 



on* the VALUE STACK portion 



3-80 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

B1700 SDL S-LANGUAGE 

P.S. #2201 2389 



FORCE VALUE STACK 



Syntax: FVS 



Format 



*********** 

* 1100 01 * 

*** ******** 

OP-Code 



Function: 



******* 

* FVS * 
******* 



An operand is expected to be on the EVALUATION STACK. 



If the operand is a non-self-relative value* no action 
is taken. Otherwise the operand is converted to a 
non-self-relative value by copying its data to the top 
of the VALUE STACK* setting its descriptor^ address 
field to the copied data and changing the type field 
to non-sel f -r el at i ve value. 



3-81 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

B1700 SDL S-LANGUAGE 

P.S. #2201 2389 



EXCHANGE 



* XCH * 



S/ntax: XCH 



Format 



*********** 
* 1011 00 * 

***** ****** 

OP-Code 



Func t i on : 



a. This operator swaps the two top descriptors on the 
EVALUATION STACK. 



b. Both entries will always be 48 bit (simple) 
descr iptors. 



c. The name-value bit may be set in one* but not both* of 
the descriptors. 
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PROCEDURE OPERATORS 



NAME 



CALL 



IF THEN 



IF THEN ELSE 



CASE 



UNDO 

UNDO CONDITIONALLY 

RETURN 

RETURN FORMAL CHECK 

EXIT 

CYCLE 

MARK STACK 

MARK STACK AND UPDATE 

ENABLE-DISABLE INTERRUPTS 

EXIT-ENABLE INTERRUPTS 

CO-ROUTINE ENTRY 

CO-ROUTINE EXIT 



MNEMONIC 
CALL 
IFTH 
IFEL 
CASE 



OP CODE ARGUMENTS 



UNDO 
UNDC 
RTRN 
RTNC 

EXIT 

CYCL 

MKS 

MKU 

EDI 

XTEI 

CNTR 

CXIT 



0111 



1001 



1101 10 



1111 01 0100 



1000 

1111 01 0011 

1111 01 0101 



TYPE-SEG- 
PAGE-DISP 

TYPE-SEG- 
PAGE-DISP 

ADOR TYPE*TYPE- 
SEG-PAGE-DISP 

It OF AODR* ADDR 
TYPE, TYPE-SEG- 
PAGE-DISP,..., 
TYPE-SEG-PAGE- 
DISP 

» OF LEVELS 

U OF LEVELS 

# OF LEVELS 



1111 

1101 
1110 
1011 
1111 

nil 
mi 
mi 
mi 



1 1101 001 ft OF LEVELS, 
TYPEi-LENGTH 

1 # OF LEVELS 

1 DISPLACEMENT 

1 

1 1111 LL 

1 0101 V 

1 0110 V,# OF LEVELS 

1 1010 000 

1 1010 001 it OF LEVELS 
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CALL 



** ****** 

* CALL * 
******** 



Syntax: CALL <Code Address> 



Format 



*************** 
* 0111 * * 
*************** 

OP-Code * 

* 

*** Type* Segment* Displacement 
Funct ion: 



The code address type may not be of type w null w . 



b . The locat ion 
displacement) 
i ns true t i on is 



{page number* segment number* 
of the first bit following the 
pushed into the PROGRAM POINTER STACK. 



The code address in the instruction is used as the 
address of the next instruction to execute. This may 
require a look up in the segment dictionary to locate 
the segment . 
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CASE 



** ****** 

* CASE * 



Syntax: CASE <# of Code Add ressesx Address Typo 
<Code AddressxCode Address> 



Format : 



*************************************************** 
* 1111 01 0100 ****** 
*************************************************** 



OP-Code 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* ** 



* * 

*************** 

* 
* 
* ** 



(All addresses are 
of types specified 
by <Address Type> 
unless they are 
null )• 



3 Bits Code 
address type 



*** 8 Bi t s 

# of addresses 



Func t i on : 



An operand is expected to be on the EVALUATION STACK. 

The value of this operand is used to select one of the 

code addresses. selects the first address* 1 the 
second* etc. 



b. When the value is out of range* 
occurs • 



an error interrupt 
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When the proper address has 
performed on that address. 



been isolated a "CALL" is 



d. Any of the addresses may be null addresses (type 
fietd=lll) in which case the rest of the address wilt 
be padded with zeros (even though the type is null the 
address size is the same as the non-null addresses). 



When a null 
termi na ted. 



address is selected the operation is 
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CO-ROUTINE ENTRY 



** ****** 

* CNTR * 
** ** *** * 



Syntax: CNTR 



Format : 



******************** 
* 1111 11 1010 000 * 

******************** 

OP-Code 



The table associated with each of the co-routine operators has the 
f o I towi ng format . 



DECLARE 

01 TABLE, 

02 NUMBER. OF. ENTRIES BITC4)* 
02 ENTRY. AODRESS BITC32), 
02 PPS.C0PYO6) BITC32), 



F unc t i on: 



a. The descriptor on the top of the EVALUATION STACK will 
contain the address of TABLE. 



b. The current code address is pushed onto the PROGRAM 
POINTER STACK. 



c. The number of elements of PPS.CQPY, specified by 
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NUMBER. OF. ENTRIES is pushed onto the PROGRAM POINTER 
STACK. 



d. The address of the next instruction is taken froi 
ENTRY. ADDRESS. 
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CU-ROUTINE EXIT 



******** 

* CXIT * 
******** 



Syntax: CXIT <» of Levels to exit> 



Format : 



*************************** 

* 1111 11 1010 001 * * 
*************************** 

OP-Code * 

* 

*** 4 Bits* specifies number 
of levels to exit. 



See CNTR for TABLE format. 



function: 



a. The descriptor on the top of the EVALUATION STACK will 
contain the address of TABLE. 



b. Number of levels is stored in NUMBER. OF. ENTRIES. 



c. The current code address is stored in ENTRY. ADDRESS 



The number of entries on the top of the PROGRAM 
POINTER STACK* (specified by # of levels) is copied to 
PPS.COPY (0) through PPS.COPY (.» OP levels-1) if the 
U of levels is 0* nothing is copied. 



An UNDO is performed* using the # of levels as the 
number of entries to pop off the PROGRAM POINTER 
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CYCLE 



******** 

* CYCL * 
******** 



Syntax: CYCL <d i sp I acement> 



Format : 



******************* 

* 1110 11 * * 
******************* 

OP-Code * 

* 

*** 12 bits* specifies the relative branch address 



f'unc t i on : 



When the twelve bits are read by the processor* the 
program pointer will point the the first bit of the 
next i nst met ion. 



b. The twelve bit displacement is then subtracted from 
the program pointer to give a new next instruction 
address. 



This operator does not cause a change in code segment. 
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ENABLE DISABLE INTERRUPTS 



******* 

* EOI * 
******* 



Sy nt ax 



EDI <Enable-disable bit> 



Format 



********************* 

* 1111 11 0101 * * 
********************* 

OP-Code * 
* 
*** 



1 bit* => Enable 
1 => Disable 



Funct i on: 



D i sable 



Disable extracts from the interrupt queue a high 

priority interrupt and places the port* channel* and 

reference address associated with it on top of the 

EVALUATION STACK. 



The MCP»s high-priority interrupt handling routine is 

entered (via a CALL). If there is no high priority 

interrupt in the queue the next in tine S-op is 
executed. 



Enab le 



a. Enable checks the interrupt queue for a high priority 
interrupt; if one exists it places the associated 
port* channel* and reference address in the EVALUATION 
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STACK. 



A CALL to the MCP's high priority interrupt handling 

routine is then performed. If no high priority 

interrupt exists an UNDO is performed* to terminate 
handling of high priority interrupts. 



NOTE: For MCP use only 
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EXIT 



******** 

* EXIT * 
******** 



Synt ax 



EXIT <» of Levels> 



Format : 



******************* 

* 1101 11 * » * 
******************* 

OP-Code * 

* 

*** Number of levels to exit (4 bits) 



Function: Refer to Control Stack Mechanis 



a. DISPLAY and CONTROL STACK are updated by the following 
algorithm: 



CUR RENT. NSP:=CS„NSP(TCSP:=CSP:=CSP-1 >; 
CURRENT. VSP:=CS.VSP(CSP>; 
DO SEARCH FOREVER: 

IF CS. EXITED. LL(TCSP) = THEN UNDO SEARCH; 

IF CURRENT. LL = CS. ENTERED. LL ( TCSP : =TCSP- 1 ) THEN 

do; 

display(current.ll):=cs.nsp(tcsp); 

undo search; 
end; 
end search; 
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CURRENT.LL:=CS.EXITED.LL(CSP>; 



b. An UNDO is performed on the PROGRAM POINTER STACK, 
using the number of levels given in the instruction. 
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IF THEN ELSE 



** ** ** * * 

* IFEL * 
******** 



Syntax: IFEL <Address TypexCode AddressxCode Address> 



Format 



********************************** 
* 1101 10 * * * * 
********************************** 

OP-Code * * * 

* * * 

* * *** Type* Segment* Displacement 



*** Type* Segment* Displacement 



*** Address Type* 3 Bits 



The type of both code addresses must be the same as the <Address 
Type>. The code address may not be of type "nult". 



Func t i on : 



a. An operand is taken from the EVALUATION STACK, The 
rightmost bit of the value of the operand is examined. 

1 = True 
= Fal se 



b. If true then* 



1. A CALL instruction is executed using the 
code address- 



first 
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If false then* 



1- A CALL instruction 
code address* 



is executed using the second 



The return code address that is 
PROGRAM POINTER STACK by the call 
following this instruction. 



pushed into the 
points to the bit 
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IF THEN 



* IFTH * 
******** 



Syntax: IFTH <Code Address> 



format: 



**************** 

* 1001 * * 
**************** 

OP-Code * 

* 

*** Type* Segment* Displacement 



F unc t i on 



An operand is taken from the EVALUATION STACK. The 
rightmost bit of the value of the operand is examined. 

1 = True 
= False 



b. If true then* 

1. A CALL instruction is executed using 
address given in the instruction. 



the code 



2. The return code address that is pushed into the 
PROGRAM POINTER STACK points to the bit following 
this i nstruct ion. 



If false then* 

1. This instruction is terminated 
instruction in line is executed. 



and the next 
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MARK STACK 



* ****** 

* MKS * 
******* 



Syntax: MKS 



Format : 



*********** 

* 1011 11 * 
*********** 

OP-Code 



Func t i on: 



Refer to CONTROL STACK mechanisi 



The CONTROL STACK is updated by the following algorith 
CS.NSP(CSP):=CURRENT.NSP; 

C S- EX I TE0.LL(CSP): = CURRENT. LL; 
CS. ENTERED. LL(CSP):=0; 

CS. VSP(CSP):=CURRENT.VSP; 
CSP:=CSP ♦ i; 
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MARK STACK AND UPDATE 



******* 

* MKU * 
******* 



Sy nt ax 



MKU <Lexic Levet> 



Format 



************************ 

* 1111 01 1111 * * 
************************ 

OP-Code * 

* 

*** k bits* LL 

Lexic Level being entered 



Func t i on 



Refer to CONTROL STACK mechanism 



The CONTROL STACK and DISPLAY are updated by the 
a I gor i t hm: 

csp.nsp(csp):=current.nsp 
cs.exited.llccsp>:=current.ll; 
cs.entered.llccsp):=current.ll:=ll; 
cs, vsp(csp):=current. vsp; 

CSP:=CSP+i; 

DISPLAY(CURRENT.LL) : = CURRENT . NSP; 



following 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



3-100 

COMPANY CONFIDENTIAL 

B1700 SOL S-LANGUAGE 

P.S. #2201 2389 



RETURN FORMAL CHECK 



* RTNC * 
******** 



Syntax: RTNC <# of LevelsxType F ie IdxLength Field> 



Format: 



****************************************** 
* 1111 11 1101 001 * * * * 

****************************************** 

OP-Code * * * 

* * * 

* * *** Length Field (6 or 17 

* * bits)* Present only if 

* * length varying bit is 

* ■ * is not set. 

* * 

* * 

* *** Type (8 bits) 

* 
* 
*** Number of levels 



F unc t i on: 



Refer to Control Stack Mechanisi 



a. Type Field 

Bits: 
1 
2 
3 



Not used 

Not used 

Not used 

Not used 
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4-5 00 BIT 

01 FIXED 

10 CHARACTER 

11 VARYING 

6 - Always 

7 " 1 if length is varying 

b. DISPLAY and CONTROL STACK are updated using the 
following algorithm; 

current.nsp:=cs.nsp(tcsp:=csp:=csp-l); 
current. vsp:=cs.vsp(csp); 
do search forever; 

if cs. exited. ll(tcsp)=0 then 
undo search; 

IF CURRENT. LL = CS. ENTERED. LL ( TCSP: =TCSP- 1 ) 

THEN 

do; 

d is playc current. ll): = cs.nsp( tcsp); 
undo search; 
end; 

end search; 

current. ll:=cs. ex i ted. ll(csp); 



c. The value to be returned is an operand on the top of 
the EVALUATION STACK. 



d. The type and length of the data must match the type 
and length specified in the instruction unless the 
type or length is varying. 
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If the operand on the 
sel f -relati ve* the data to 
top of the VALUE STACK* i 
an address. 



EVALUATION STACK is not 
be returned is moved to the 
e. changed to a value from 



f. An UNDO is performed on the PROGRAM POINTER STACK* 
using the number of levels given in the instruction. 
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RETURN 



******** 

* RTRN * 
******** 



Syntax: RTRN <# of Levels> 



Format : 



********************* 

* 1111 01 0101 * * 
********************* 

OP-Code * 

* 



*** 4 Bit field that specifies 
the number of levels 



Function: Refer to Control Stack Mechanism 



a. RTRN performs no check on the type and length fields 
of the value returned and is the return that is 
normally emitted by the compiler. RTNC does perform 
checking and is available as a compiler option. 



b. The value to be returned is an operand on the top of 
the EVALUATION STACK. 



c. If the name value bit is off and the descriptor is 
non-sel f -re lat i ve# then an error condition occurs. 



d. DISPLAY and CONTROL STACK are updated by the following 
a I gor i t hm; 

CURRENT.NSP:=CS.NSPCTCSP:=CSP:=CSP-1); 

CURRENT. VSP:=CS.VSP(CSP); 
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do search forever; 

if cs. exited. ll(tcsp)=0 then 

undo search; 
if current.ll=cs.entered.ll(tcsp:=tcsp-1) 

THEN 

do; 

DISPLAY(CURRENT.LL):=CS.NSP(TCSP); 
UNDO SEARCH; 

end; 
end search; 
current. ll:=cs. ex it ed. ll(csp) ; 



If the operand on the EVALUATION STACK is not 
self-relative* the data to be returned is moved to the 
top of the VALUE STACK* i.e. changed to a value from 
an address. 



An UNDO is performed on the PROGRAM POINTER STACK* 
using the number of levels given in the instruction. 
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UNDO 



******** 

* UNDO * 
** ** ** ** 



Sy nt ax 



UNDO <# of Levels> 



Format 



************** 

* 1000 * * 
************** 

OP-Code * 

* 

*** 4 Bits to designate number 
of levels to undo (0-15) 



Func t i on: 



The PROGRAM POINTER STACK is cut back by the number of 
levels specified in the instruction. 



b. The next entry in the PROGRAM POINTER STACK is then 

used as the pointer to the next instruction* This 

entry is then also cut back from the PROGRAM POINTER 
STACK. 
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UNDO CONDITIONAL 



* UNDC * 



Syntax: UNDC <# of Levels> 



Format 



********************** 

* 1111 01 0011 * * 
********************** 

OP-Code * 

* 

*** 4 Bits* specifies number of 
Levels to undo (0-15) 



F unc t i on 



a. An operand is taken from the top of the EVALUATION 
STACK. 



b. The rightmost bit of the operand is interrogated 
1 = TRUE 
= FALSE 



When true an UNDO operator is performed for the number 
of levels indicated. 



When false the instruction is terminated and the next 
in-line instruction is executed. 



3-107 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 SOL S-LANGUAGE 



Po 



#2201 2389 



EXIT, ENABLE INTERRUPTS 



** ****** 

* XTEI * 
** ****** 



Syntax 



XTEI <UNDO op EXIT bi t><# of Levels to exit> 



Format 



*************************** 

* 1111 11 0110 * * * 
*** ************************ 

OP-Code * * 

* * 

* *** 
* 
* 

* 

*** 1 Bit* variant to specify if UNDO or EXIT 

=> UNDO 

1 => EXIT 



A Bits, specifies number of 
of levels to exit 



Func t i on : 



The execution of XTEI is identical to that of EXIT, 
except that interrupts will be enabled before the 
operator terminates. 



NOTE: For MCP use only 
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SEARCH & SCAN OPERATORS 



NAME 

SEARCH SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 
THREAD VECTOR 
INITIALIZE VECTOR 
SORT STEP DOWN 
SORT SWAP 
SORT UNBLOCK 
DELIMITED TOKEN 

NEXT TOKEN 

OEBLANK 

CHARACTER FILL 

TRANSLATE 

FIND DUPLICATE CHARACTERS 



MNEMONIC 


SSS 


SLL 


SSL 


SSCH 


TVEC 


IVEC 


SSD. 


SSWP 


UBLK 


DTKN 



OP CODE 



ARGUMENTS 



NTftN 

OBLK 
CHFL 
XLAT 
FDUP 



1110 001 

1010 COMPARE TYPE 

1000 000 COMPARE TYPE 

1011 100 
1011 001 
1011 000 
1011 010 
1011 101 
1011 Oil 

1001 001 TYPE-LL-OC* 

DELI* DEL2 

1001 000 TYPE-LL-OC* 
SEPARATOR, V 

1001 010 TYPE-LL-OC 

1001 100 

1110 101 

1001 Oil 
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CHARACTER FILL 



* CHFL * 
** ****** 



Syntax: CHFL 



Format : 



******************** 

* 1111 11 1001 100 * 
********* ** ********* 

OP-Code 



Function: 



a. Two operands are taken from the EVALUATION STACK. 



b. The top operand is the source* and must be eight bits 
i n length . 



c. The second operand is the destination. 



d. The source descriptor may be self-relative or 
non-self-relative. 



e. The eight bits the source field is moved 
left-justified into the destination field* repeatedly* 
until the destination field is filled. 
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FIND DUPLICATE CHARACTERS 



Syntax: FDUP <Data Addr essxData Address> 



Format : 



******* ****** ********** ************* 

* 1111 11 1001 Oil * LL#ON * LL^ON * 

* ** ****** ************ *************** 

OP-Code * * 

* * 
**** ***** 

* 
* 
* 

Variable size depending 
on type field. 



Function: 



* FDUP * 
******** 



The text to be scanned is initially described by the 
first data address. 



The second data address describes the non-duplicate 
text. 



c. The text will be scanned until three or more duplicate 
characters are found. 



d. Upon return the text descriptor is modified to 
describe the remaining text. 



e. The non-duplicate text descriptor is modified to 
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describe the non-duplicated text that was scanned. 

f. The number of duplicate characters will be left as a 
24 bit item on the top of the EVALUATION STACK. 



The 

i tern 

CHARACTER,. 



duplicated character will be left as the second 
on the EVALUATION STACK and will be of type 
length 1. 
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DELIMITED TOKEN 



******** 

* DTKN * 
** ** ** * * 



Syntax: DTKN <Data Addr essxDe t i m i t er s> 



Format 



************************************ 

* 1111 11 1001 001 * LL,ON * * 
************************************ 

OP-Code * * 

* * 

* *** 16 Bits specifies delimiters 

* (2 characters) 



*** Variable size depending on 
type bits in this field. 



Func t i on 



a. The descriptor located by data address is used to 
access the first source character. 



b. The address of the first character is token-start. 



c. Characters are compared sequentially to each of the 
eight bit delimiters until a match is found. 



d. Current address will point to the character which 
matches one of the delimiters. 



e. A descriptor is left on top of the EVALUATION STACK 
t ha t is : 
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1- Non-self-relative. 

2. The address is the address of token-start. 

3. The length is equal to the current address minus 
token-start • 



f. The address field of the NAME STACK descriptor for 
first character is set to the current address. 
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DEBLAMK 



******** 

* DBLK * 
******** 



Syntax: DBLK <Data Address> 



Format : 



**************************** 
* 1111 11 1001 010 * LL*ON * 
**************************** 

OP-Code * 

* 

*** Variable size depending on 
type bits in this field. 



Func t ion: 



a. The descriptor located by <Data Address> is used to 
access the first source character. 



b. Characters are then passed serially until a non-blank 
character is found. 



c. The address of the first non-blank character found is 
put into the address field of the descriptor described 
by <Data Address>- 
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INITIALIZE VECTOR 



******** 

* IVEC * 
******** 



Syntax: IVEC 



Format: 



******************** 

* 1111 11 1011 000 * 
******************** 

OP-Code 



See SSD for keys table format. 



VECTOR TABLE 



24 Bits 24 Bits 24 Bits 24 Bits . 

************************************************************ 

* VECTOR * VECTOR * KEY * VECTOR * * 

* BASE * LEVEL. 1 * TABLE * LIMIT 

* AODRESS * SIZE * ADDRESS * SIZE 

******************************************* 



4 Bi ts 



* FLAGS * 

* * 



***************** 



SORT VECTOR 

2 10 20 

******************************************** 

* * * VECTOR ELEMENT. 1 * 

* * * RECORD * 

* FLAGS * LINK * ADDRESS * 

* * * VECTOR ELEMENT. n + 
************************ ** ** **************** 



Function: 
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This operator is similar to Thread Vector* with the 
exception that: 

1. The vector has never been initialized (had a 
winner) . 

2. The initial value of the bit displacement into the 
vector is zero (0). 



3. Each new value is incremented by 64. (Vector 
element length * 2 ) . 
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NEXT TOKEN 



******** 

* NTKN * 
******** 



Syntax: NKTN <Data AddressxSepar a tor> 

<Numeri c-to-Alpha IndiCator> 

Format: 



****************************************** 

* 1111 11 1001 000 * LL^QN * * * 

OP-Code * * * 

* * * 

* * *** 1 Bit 

* * Numeri c-to-Alpha 

* * Indicator 

* * 

* *** 8 Bits p specifies a 

* separator 



*** Variable size depending on 
type in this field 



Func t i on: 



a. The descriptor described by data address is used to 
access the first source character. 



b. The address of the first character is token-start. 



c If this character is a special character (less than 
"A") then set the current address to token-start +8 
and go to (g). 



d. If the numeric-to-alpha indicator is set (l)* then set 
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stopper to M A' 



e. If the numeric-to-alpha indicator is not set (0) and 
the first character is numeric then set stopper to 
"0". Otherwise* set stopper to W A W . 



f. Sequentially compare characters to stopper until one 
is found which is less than stopper and not equal to 
"separator". The current address will point to this 
character • 



g. A descriptor is left on top of the EVALUATION STACK 
that is : 



1 • Non-self-relative of type character. 



2. The address is the address of token-start 



3. The length is equal to the current address minus 
token-start. 



h. The data address for first character is set to the 
current address • 



»• It is assumed that a special character such as "Z n 
will follow the image to be scanned* in order that 
scanning will terminate. 
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SEARCH LINKED LIST 



* ** ** * * 

* SLL * 

* ** ** * * 



Syntax: SLL<Compare Type> 



Format 



********************** 

* 1111 01 1010 * ■ * 

* ********************* 

OP-Code * 
* 
* 
*** 3 Bits* specifies compare type 



The compare type specifies the desired relation 
f o t lows: 



It i s encoded as 



1 - Greater than 

2 - Less than 

3 - Not equal to 

4 - Equa I to 

5 - Greater than or equal to 

6 - Less than or equal to 



Func t i on: 



Four descriptors are expected to be on the top of the 
EVALUATION STACK. These descriptors represent the 
following i terns : 
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Descriptor 

F i r st ( top) 
Second 

Third 
Fourth 



Meani ng 

L i nk Locat i on 
Compare Variable 
Compare Field Location 
Structure Address 



Link Location is a template which describes the 
field in the structure which contains the base 
relative address of the next structure to be 
exami ned. 

Compare Variable determines the value to be 
compared to the structure. Its length must be less 
than or equal to 24. 

Compare Field Location is a template whose length 
field is the length of the field to which compare 
variable is to be compared and whose address field 
is the offset (in the structure) of the field to 
be compared against. The length must be less than 
or equal to 24. 

Structure Address is the base relative address of 
the first structure to be examined. 



b. The linked list is searched until either the 
comparison succeeds or the end of the list is found. 
The last element of the list must have a link field 
with binary 1 • s' (i.e. 3FFFFFF3 if the link field is 24 
bits wide). 



c. If the search succeeds* then the base relative address 
of the current structure is left on the EVALUATION 
STACK as a 24 bit-value. 



d. If the search fails* then 3FFFFFF3 is the value left 
on the EVALUATION STACK. 



NOTE: This operator will not terminate if it is unable 
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to make a successful comparison and cannot 
of the list Ca link field of all I • s ) . 



find the end 
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SORT SEARCH 



** ****** 

* SSCH * 
** ****** 



Syntax: SSCH 



Format : 



******************** 

* 1111 11 1011 100 * 
******* ************* 

OP-Code 



See SSD for keys table format 



Funct i on: 



This operator expects two items to be on the 
EVALUATION STACK. 

1. The top item is the buffer limit address. 

2. The second item is the address of the search 
control table. 



SEARCH CONTROL TABLE 

Bits 24 24 24 24 24 

* CONTROL * KEY * CURRENT * SCAN * RECORD * 

* RECORD * TABLE * RECORD * & * SIZE * 

* ADDRESS * ADDRESS * INDEX * COMPARE * * 

* * * * TYPE * * 
************* ******************************** ^^^^^^ 



b. SSCH compares each record in a buffer with a control 
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record on a specified key. 



The record may be compared from the top of the buffer 
down or from the bottom of the buffer up. 



The compare can be for 

1 . LSS ( le ss than) 

2. LEQ (less than or equal to) 

3. GEO (greater than or equal to) 



When a record is found that satisfies the comparison 
a one (1) is returned. Otherwise a zero is returned. 
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SORT STEP DOWN 



Syntax: SSD 



Format 



******************** 
* 1111 11 1011 010 * 

******************** 

OP-Code 



KEYS TABLE 



* ****** 

* SSD * 
******* 



k Bi ts 12 Bits 20 Bi ts 

************************************************** 



I 



\ 



* v * V * V * 

* * * * 
************************************************** 



FLAGS 



LENGTH 



DISPLACEMENT 



F unc t i on : 



a. This operator expects three items to be on the 
EVALUATION STACK. 

1. The value of the top item is the key table 
address . 

2. The second and third items are the left and right 
record addresses respectively- 
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b. The left and right records are compared according to 
the keys and return a value of one (1) when the right 
record is greater* according to the keys* than the 
left record. 
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SEARCH SERIAL LIST 



******* 

* SSL * 
******* 



Syntax: SSL <Compare Type> 



Format : 



************************** 
* 1111 11 1000 000 * * 

************************** 

OP-Code * 

* 

*** 3 Bits* specifies compare type 



The compare type specifies the desired relation 
foil ows : 

1 = Greater than 

2 = Less than 

3 = Not equal to 

4 = Equal 

5 = Greater than or equal to 

6 = Less than or equal to 

F unc t i on: 



It is encoded as 



a. Four descriptors are expected to be on the top of the 
EVALUATION STACK. These descriptors represent the 
f ol lowi ng i terns . 
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Oescr ip tor 

F i r st C top) 
Second 

Third 
Fourth 



Meani ng 

Table Length 
Compare Value 
First I tern 
Compare Field 



1. Table Length. is the length* in bits* of the table 
to be searched. 

2. Compare Value determines the value to be compared 
to the structure. Its length can be greater than 
24. 

3. First Item gives the length and address of the 
first item in a serial list of items that are of 
identical structure. 

4. Compare Field gives the length and the offset 
within the structure of the field to which Compare 
Value is to be compared. Unlike SLL* the length 
may be greater than 24 bits. 



b. The serial list of items is searched beginning with 
first item until Compare Value satisfies Compare Type 
with Compare Field* or until the end of the list is 
reached • 



c. If the search succeeds* then the base relative address 
of the item containing the "successf ul" compare field 
is left on the top of the EVALUATION STACK and a 1-bit 
value of 1 (one) is left as the second item on the 
EVALUATION STACK. 



d. If the search fails* then the end address of the table 
+ 1 is left on the top of the EVALUATION STACK* and a 
1-bit value of (zero) is left as the second item on 
the EVALUATION STACK. 
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SEARCH SDL STACKS 



* ** *** * 

* SSS * 
******* 



Syntax 



SSS 



Format 



******************** 
* 1111 11 1110 001 * 

******************** 



OP-Code 



Func t i on: 



Four operands are removed from the EVALUATION STACK 



F i r s t ( t o i 
Second 
Third 
Fourth 



) - Stack Base 

- Stack Top 

- Compare Base 

- Compare Top 



b. The stack to be searched will consist of SOL 
descriptors and will be searched from base to top (or 
vice versa) for a simple descriptor whose address lies 
between compare base and compare top* 



Array descriptors and sel f -re la t i ve descriptors may 
ignored- 



be 



d. If the search is successful then a one bit value of 
(1) is left on the top of the EVALUATION STACK. 



e. 



If the search is not successful then a one bit value 
of (0) is left on the top of the EVALUATION STACK. 
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SORT SWAP 



******** 

* SSWP * 
******** 



Syntax: SSWP 



Format : 



******************** 

* 1111 11 1011 101 * 
******************** 

OP-Code 



Funct i on: 



This operator pops two operands off the EVALUATION 
STACK. 



b. The values of the two operands are interchanged 
without regard to type. 



c. When the two fields are of unequal length* the swap is 
limited to the length of the shorter field. The longer 
field is filled from the left; low order bits are 
undi sturbed . 



3-130 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

B1700 SDL S-LANGUAGE 

P.S. #2201 2389 



THREAD VECTOR 



** ****** 

* TVEC * 
******** 



Syntax: TVEC 



Format : 



******************** 

* 1111 11 1011 001 * 
******************** 

OP-Code 



See SSO for keys table format. 
See IVEC for vector table format 



Funct i on: 



a. This operator expects two items to be on the 
EVALUATION STACK. 

1. The top item is a bit displacement into the sort 
vector* where the two vector elements to compare 
res i de. 

2. The second item is the address of the 100 bit 
vector table. 



The operator then compares the two vector elements 
(according to the sort keys) and stores a winner. 



When the store address is equal to the vector limit 
the EVALUATION STACK is cut back and the instruction 
pointer advanced. 
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d. When the store address is not equal to the vector 
limit the bit displacement is updated and the 
EVALUATION STACK and program pointer remain unchanged. 
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SORT UNBLOCK 



* UBLK * 
******** 



Syntax 



UBLK 



Format : 



******************** 

* 1111 11 1011 Oil * 
******************** 



OP-Code 



a. This operator handles blocking for the sort operators. 
It moves data from a source field to a destination 
field and updates the blocking characteristics. 



b. Four items are expected on the EVALUATION STACK. 

1. The first item is the destination address. 

2. The second item is the source address* 

3. The third item is the length of the data transfer. 

4. The fourth item is the address of the 
- P s e u d o - S o r t - F i b w * 



When the block count goes to zero (0) a value of one 
( 1 ) is returned . 



d. When the block count is other than zero a 
zero (0) is returned. 



value of 
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TRANSLATE 



** **** ** 

* XLAT * 
******** 



Syntax: XLAT 



Format 



******************** 

* 1111 11 1110 101 * 
******************** 

OP-Code 



Funct i on: 



Five operands are taken from the EVALUATION STACK. 

1. Descriptor for the result field. (An address 
operand ) • 

2. A self-relative descriptor whose value is the size 
of the items in the result field and in the 
translate t able. 

3. The translate table. (May be a value or an address 
operand ) • 

4. A self-relative descriptor whose value is the size 
of the items in the source field. 

5. A descriptor for the source field. (An address 
operand ). 



b. 



Each of the items in the source field is used to 
subscript into the table to obtain an item which is 
then placed into the result field in the position that 
corresponds to the position of the original item 
obtained from the source. 
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This process continues until 

1. The source field is exhausted. 

2. The result field is full. 

3. An error occurs (e.g. translate error) 



If either the source or the result is not a multiple 
of its respective item size then the last item 
translated or the last translated value will be 
truncated as required. 



Both source and table item sizes must be equal to or 
less than 24 bits in length* otherwise a run-time 
error occurs. 



The table nee& only be large enough to accommodate 
those items which will actually appear in the source. 
That is* the upper end of the table need not be 
present if it will never be accessed. However* 
attempting toaccess a table item which is beyond the 
actual size of the table will cause a run-time error. 
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MISCELLANEOUS OPERATORS 



NAME 

TRANSFER MESSAGE 

HASH CODE 

SWAP 

FETCH 

FETCH AND SAVE 

DISPATCH 

HALT 

READ CASSETTE 

LENGTH 

LOAD SPECIAL 

CLEAR ARRAY 

COMMUNICATE 

REINSTATE 

FETCH CMP 

DATA ADDRESS 

SAVE STATE 

HARDWARE MONITOR 

OVERLAY 

PROFILE 



MNEMONIC 

XFRM 

HASH 

SWAP 

FECH 

FECS 

DISP 

HALT 

ROCS 

LENG 

LSP 

CLR 

COMM 

REIN 

FCMP 

AODR 

SVST 

HMON 

OVLY 

PRFL 



OP CODE 



ARGUMENTS 



1 11 1010 010 DEST. VARIABLES 
SOURCE VARIABLE 



1 11 1000 001 
1 01 0110 
1 00 1100 
1 11 1110 Oil 
1 01 1011 
1 11 0010 
1 01 0010 
1 10 0000 
1 01 1110 
1 10 0111 
1 10 0110 
1 10 0001 
1 10 0010 
1 01 1001 
1 11 0001 
1 11 0011 
1 11 0000 
1 10 1111 



VARIANT 



ENTRY NUMBER 
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PARITY ADDRESS 


PADR 


1111 11 


0111 




EXECUTE 


EXEC 


1111 11 


1110 


010 


COMMUNICATE WITH GISMO 


CWG 


1111 11 


1110 


110 


ADD TIMER 


A DDT 


1111 11 


1100 


000 


SUBTRACT TIMER 


SUBT 


1111 11 


1100 


001 
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ADDRESS 



** **** * * 

* ADDR * 
******** 



Syntax: ADDR 



Format ' 



* ** ** * * ** ** ** ** * 

* 1111 01 1001 * 

**************** 



QP-Code 



Func t i on : 



a. A descriptor is expected to be on the top of the 
EVALUATION STACK, This descriptor must be 

1. Non-array 

2. Non-self-relative 

3. The name-value bit must be off. 



b. The type field of the descriptor 
self-relative* BIT. 



is set to 



c. The length field of the descriptor is set to 24. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



3-138 

COMPANY CONFIDENTIAL 

B1700 SOL S-LANGUAGE 

P.S. #2201 2389 



ADO TIMER* SUBTRACT TIMER 



*************** 

* AODT * SUBT * 
*************** 



Syntax: ADOT <cell number> 
SUBT <cell number> 

Format : 



ADOT 
***************************** 

* 1111 11 1100 000 * * 
***************************** 

OP-Code * 

* 

*** 16 Bits specifies cell number 



SUBT 
***************************** 

* 1111 11 1100 001 * * 

***************************** 

OP-Code * 



*** 16 Bits specifies cell number 



Func t i on: 



a. This operator assumes that DISPLAY(18) points to cell 
zero of an array of 48-bit celts. 



b. The cell number is used to subscript into the array to 
locate the indicated cell. 



c. The high-resolution timer is added (subtracted) from 
the indicated cell. 
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d. An adjustment will be made to the timer to exclude the 
time required by the operator from being included in 
the cell t i me. 



If no high-resolution timer is present on the system* 
then this operator Hill not change the timing cell. 
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CLEAR ARRAY 



******* 

* CLR * 
******* 



Syntax: CLR 
Format: 



**************** 

* 1111 10 0111 * 
**************** 

OP-Code 



Func t i on: 



The descriptor on top of the EVALUATION STACK must be 
a non-paged array descriptor. 



When the array is of type CHARACTER* the array 
elements are blank filled. 



c. For any other data types the array elements will be 
zero f i I led . 
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COMMUNICATE 



** ** *** * 

* COMM * 
******** 



Syntax: COMM 



Format 



**************** 

* 1111 10 0110 * 
**************** 

OP-Code 



Funct ion: 



The descriptor on the top of the EVALUATION STACK is 
moved to RS.COMMUNI CATE .MSG.PTR . 



b. When the name-value bit is on* it is turned off in the 
RS. COMMUNICATE. MSG.PTR. 



The descriptor is removed from the EVALUATION STACK 
and the VALUE STACK is cut back* if necessary. 



The M-machine state is stored in the appropriate parts 
of the RS. NUCLEUS. 



e. The program whose RS. NUCLEUS address is given in the 
RS. COMMUNICATE. LR is then instated. 
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COMMUNICATE WITH GISMO 



* ** ** * * 

* CWG * 
******* 



Syntax: CWG 



Format : 



***** ******** ******* 

* 1111 11 1110 110 * 
******************** 

OP-Code 



Func t i on 



A descriptor is expected to be on the top of the 

EVALUATION STACK. 



b. If the descriptor is self-relative it is made 
non-self-relative by copying its data to the VALUE 
STACK. 



c. The address field of the descriptor is made absolute 
and placed in the "T" register. 



d. The length field is placed in the "L" register. 



e. A swapper value of 14 is placed in the "X" register 
and GISMO i s called. 



f. The descriptor on the EVALUATION STACK is not removed 
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DISPATCH 



******** 

* DISP * 
** **** ** 



Syntax: DISP 



Format: 



**************** 

* 1111 01 1011 * 
**************** 

OP-Code 



Func t i on: 



a. Two operands are removed from the EVALUATION STACK. 



The top operand is an address operand of the I/O 
descriptor to be dispatched. 



The low order 7 bi ts of the second operand should be 
encoded as follows: 



***************** 
* * * 
***************** 

* * 

* * 

* *** 4 Bits* specifies Channel 

* 
* 



*** 3 Bits* specifies Port 



d. These two operands are passed as parameters to GISMO 
which then performs the I/O operation. 
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GISMO returns a value which describes the results of 

the dispatch. A 24-bit se If -rel at i ve descriptor is 

left on the EVALUATION STACK. The value has the 
f ol lowi ng meani ng. 

= Dispatch register lockout bit set 

1 = Successful dispatch 

2 = Successful dispatch* but missing device 
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EXECUTE 



* EXEC * 
******** 



Syntax 



EXEC 



Format 



******************** 

* 1111 11 1110 010 * 
******************** 



OP-Code 



Func t i on : 



The value of the top operand on the EVALUATION STACK 
wilt be considered to be the next op-code to be 
executed. This is for the testing of experimental 
op-codes in the interpreter. 



This operator is not in release interpreters 
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FETCH COMMUNICATE MESSAGE POINTER 



** ****** 

* FCMP * 
** ****** 



Syntax: FCMP 



Format 



**************** 
* 1111 10 0010 * 

**************** 

OP-Code 



Func t i on : 



a. If the RS.MCP.BIT is set 
RS. COMMUNICATE. MSG.PTR is accessed. 



then 



the 



If the RS.MCP.BIT is not set then the RS.REI NSTA TE. 
MSG.PTR is accessed. 



The accessed field is assumed to be a descriptor and 
is placed on the top of the EVALUATION STACK. 
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FETCH* FETCH AND SAVE 



*************** 

* FECH * FECS * 
*************** 



Sy nt ax 



FECH 
FECS 



Format 



FECH 
**************** 

* 1111 00 1100 * 

**************** 

OP-Code 



FECS 
******************** 

* 1111 11 1110 on * 

********** * * ******** 

OP-Code 



Func t i on: 



An operand is taken from the EVALUATION STACK. Its 
value indicates which item is to be examined on the 
Interrupt Queue (Refer to the MCP manual). 

=> Use the top item 
-I => Use the top high priority interrupt time. 
Otherwise the value is the reference 
address +24 of the result descriptor 
desi red. 



b. Two descriptors are left on the EVALUATION STACK. 



The top item is a Bit (24) se If -rel at i ve data item 

whose value is the address of the desired I/O 
result descriptor. 

The second item is a Bit (10) self-relative data 

item whose value is the port and channel of the 
I/O operation. This has the following format: 
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********************************************************** 

* 1 Bit * 1 Bit * 1 Bit * 3 Bits * 4 Bits * 
********************************************************** 

* * * * * 

* * * * * 

* * * * * 
High Priority Interrupt Unused Port Channel 

Interrupt 



When the operator is Fetch* then the item is removed 
from the Interrupt Queue. 



When the operator is Fetch and Save* then the 
information is left in the Interrupt Queue* 



e. If the Interrupt Qaeue was empty* then both 
descriptors have a value of zero (0). 
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HALT 



** **** * * 

* HALT * 
******** 



Syntax: HALT 



Format : 



**************** 

* 1111 11 0010 * 

* *************** 

OP-Code 



function: 



The M-machine state is stored in the appropriate parts 
of the RS. NUCLEUS. (Refer to the MCP manual). 



b. The low-order 24 bits of the value of the operand on 
the top of the EVALUATION STACK* is moved to the 
T-register. 



This operand is popped off the EVALUATION STACK and 
the M-i nstruc ti on "HALT" is executed. 
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HASH CODE 



******** 

* HASH * 
******** 



Syntax: HASH 



Format : 



*********** **** ***** 

* 1111 11 1000 001 * 
******************** 

OP-Code 



Function: 



The algorithm for generating the hash code can best be 
described by an SDL procedure. 

PROCEDURE HASH.CODE(TOKEN) BIT (24); 

FORMAL TOKEN CHARACTER VARYING; 

DECLARE 

(L>T) BIT<24), 

C CHARACTER(l), 

01 HASH BITC27), 

02 FILLER BITC3), 

02 TOTAL BITC24); 

IF (HASH:=L:=LENGTH(TOKEN)> > 15 THEN L:=15; 

T: = 0; 

/* C DESCRIBES THE CHARACTER PRECEDING TOKEN */ 
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DESCRIPT0R(C):=a4800083 CAT 
OATA.AODRESS(TOKEN) -8; 
DO HASH-IT FOREVER; 

IF L <BUMP T THEN RETURN TOTAL; 
BUMP TOTAL C-CT MOD 4)1 BY NEXT . I TEM( C ) ; 
END HASH. IT; 
END HASH. CODE; 

b. Each character of TOKEN is being right adjusted in a 
field of zeros and added to TOTAL in one of four 
pos i t ions • 



********************************************************* 
**** * * * * HASH 

********************************************************* 

* ---^---o * C * T Mod 4 = 

********************************************* 

* q ... * C * T Mod 4 = 1 

********************************************* 

* — .--0 * C * T Mod 4 = 2 

******************************************** 

* * C * T Mod 4 = 3 

********************************** **** 
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HARDWARE MONITOR 



******** 

* HMON * 
** **** ** 



Syntax: HMON 



Format : 



**************** 

* 1111 11 0011 * 
**************** 

OP-Code 



Func t i on 



An operand is taken from the top of the EVALUATION 
STACK. 



b. The low order eight bits of the operand's value will 
be used as the operand of a monitor micro-instruction. 
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LENGTH 



** ***** * 

* LENG * 
** ** * * ** 



Syntax: LENG 



Format : 



**************** 

* 1111 10 0000 * 
**************** 

OP-Code 



Func t i on: 



An operand is taken from the EVALUATION STACK 



A se If -rel at i ve* fixed result is returned to the top 
of the EVALUATION STACK* 



When the operand was of type CHARACTER* the value 
of the result is equal to the length field in the 
operand's descriptor divided by eight. 

When the operand was of any type other than 
CHARACTER* the value is equal to the length field 
in the operand's descriptor. 
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LOAD SPECIAL 



******* 

* LSP * 

* ****** 



Syntax: LSP Variant 



Format 



********************** 

* 1111 01 1110 * * 
********************** 

OP-Code * 
* 

*** 5 Bit Variant indicating value to load 



Func t i on 5 



The variant field indicates a value to be loaded to 
the top of the EVALUATION STACK, usually as a 24 bit, 
self-relative data item. 



Var i ant Value 

Base register (absolute address) 

1 Limit register (base relative) 

2 S-Memory size in bits 

3 M-Memory size in bits 

4 CONTROL STACK top (base relative) 

5 EVALUATION STACK top (base relative) 

6 CONTROL STACK size in bits 

7 NAME STACK top (base relative) 

8 DISPLAY BASE (base relative) 

9 CONSOLE SWITCHES 

10 SPO. INPUT. PRESENT (1 bit) 

11 PROGRAM. SWITCHES (40 bits) 
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OVERLAY 



** ****** 

* OVLY * 
******** 



Syntax: OVLY 



Format : 



**************** 

* 1111 11 0000 * 
**************** 

OP-Code 



Funct i on : 



An operand is taken from the top of the EVALUATION 
STACK. 



The value of the operand will be used by GISMO as an 
index into the interpreter dictionary- 



The interpreter dictionary will specify the action to 
be taken, (Refer to the B1700 MCP manual). 
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READ CASSETTE 



** ***** * 

* RDCS * 
******** 



Syntax: RDCS 



Format : 



**************** 
* 1111 01 0010 * 

**************** 

OP-Code 



Func t i on : 



a- Three operands are expected to be on top of the 
EVALUATION STACK. 



Top item - address operand where a one or zero is to 
be stored according to whether a hash total read from 
the tape is good or bad. 

Second item - a self-relative value of one if a hash 
total is to be read from the tape* else zero. 

Third item - an address operand where data from the 
tape is to be stored. 



The following conventions apply; 

1. At least one record will be read. 

2. A sufficient number of records will be read to 
fill the buffer requested (third operand). 

3. The cassette will not be stopped in the middle of 
a record. 
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4. Cassette record lengths should be multiples of 16 
bits. 

5- If the size of the buffer is not a multiple of 16 
and a HASH. TOTAL checking was requested* then a 
bad. hash (0) indication will be returned. 

6. If NO. HASH. TOTAL checking was requested* then a 
good hash (1) will be returned. 
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PARITY ADDRESS 



******** 

* PADR * 
******** 



Syntax 



PADR 



Format 



**************** 

* 1111 11 0111 * 
**************** 

OP-Code 



Func t i on : 



a. Starting at absolute address zero 
scanned until MAXS is reached. 



(0) 



S-Memory is 



If a parity error is detected* the error is corrected 
and its location is placed on top of the EVALUATION 
STACK as a sel f -r el at i ve 24 bit data item- The address 
returned points to the beginning of the byte of 
S-memory in which the parity error occurred. 



If no error is detected* 

on the EVALUATION STACK. 



a value of 2FFFFFF2 is placed 



NOTE: For MCP use only. 
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PROFILE 



******** 

* PRFL * 
** ****** 



Syntax: PRFL <Profile Array Index> 



Format 



******* *************** 

* 1111 10 1111 * * 
********************** 

OP-Code * 



*** 12 Bits* specifies index 



Func t i on 



0ISPLAYC16) contains the base relative address of the 
profile array. This array is between the limit of 
DISPLAY and the base of the CONTROL STACK. Each 
element of the array is 16 bits. 



b. The entry number given by <profile array index>» 
bumped by one. 



i s 
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REINSTATE 



**** ** * * 

* REIN * 
******** 



Syntax 



REIN 



Format 



**************** 
* 1111 10 0001 * 

**************** 

OP-Code 



F unc t i on : 



The descriptor on the top of the EVALUATION STACK is 
assumed to describe the RS.COMMUN IC ATE. MSG. PTR or 
RS. NUCLEUS of the program to be reinstated. (Refer to 
the MCP manual for a description of a run structure.) 



This descriptor should have the name-value bit off. 



The reinstating program's S-machine state is stored 
the appropriate parts of its RS. NUCLEUS. 



i n 



The address of the reinstating program's RS. NUCLEUS is 
stored in the reinstated program's RS.COMMUN IC ATE. LR . 



The address field of the descriptor on the EVALUATION 
STACK contains the address of the RS. NUCLEUS of the 
program that is instated when the descriptor is 
removed from the EVALUATION STACK. 
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SAVE STATE 



** **** ** 

* SVST * 
******** 



Syntax: SVST 



Format : 



**************** 

* 1111 10 0001 * 
**************** 

GP-Code 



Func t i on: 



The current 
RS.M. MACHINE 



state of the S-machine is saved in 
(Refer to the B1700 MCP manual). 
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SWAP 



******** 

* SWAP * 
******** 



Syntax: SWAP 



format 



**************** 
* 1111 01 0110 * 

**************** 

OP-Code 



Func t i on: 



This operator takes two operands from the EVALUATION 
STACK. 

1. The top (source) operand may be a value or an 
address operand. 

2. The second (destination) operand must be an 
address operand. 

a) The length of the destination determines the 
width of the data "swapped**. 



b. Destination field: 

1. When the length of the destination is greater than 
24 bits* only the rightmost 24 bits are isolated* 
otherwise the entire field is isolated. 



Source field: 



1. A value equal in length to the destination field 
is isolated in the source field. 
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2. The bits are taken from the right. 

a) When the source length is shorter than the 
destination field* leading zeros are supplied. 



d. The source field is moved to the destination field and 
the former value of the destination field is returned 
as a result on the EVALUATION STACK. 



The swap must be performed such that no other 
processor* sharing the same memory can simultaneously 
swap out the same area of memory. 
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TRANSFER MESSAGE 



** **** ** 

* XFRM * 
******** 



Syntax: XFRM destination type> C<OES.DATA DICT.BASE> 
[<DEST. SUBSCRIPT. BOUND>]] <Source Type> 
C<SOURCE DATA DICT.BASE> KSource Subscript Bound>13 



NOTE: This operator is scheduled to be removed from the 
S-mac hi ne. 



Format : 



******************************************************** 
* 1111 11 1010 010 ******* 
******************************************************** 



OP-Code 



* 
* 
* 
* 
* 
0* 12 Bits * 

Destination Data Diet Base 



3 Bits Destination Type 



* 
* 
* 
* 
* 
* 
* 
* 

0# 12 Bits * 

Destination Subscript Bound 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
Op 12 Bits * 
Source Subscript Bound 



3 Bits * 
Source Type 



0* 12 Bi ts 



Source Data Dictionary Base 
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TYPE FIELD 



******************************* 
* * * * 

******************************* 



* 
* 

************** 

* 
- Descriptor is on E.S 



1 - Use Data Dictionary 
(Data Diet. Entry 
base f o t lows) 



- Use data diet, entry 

descr i pt i on 

1 - Use template in E.S. 

appl i ed to data die. 
entry. 



************************ 

* 

- Not subscripted 

1 - Subscripted* subscript is on E.S 

(12 bit subscript bound follows 
data diet . base) 



Func t i on: 



This operator transfers information between: 

1. Messages (or parts of messages) 

2. Data contained within Base-Limit and messages or 
parts of messages. 



b. The source and destination fields may be of the 
following types: 
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TYPE 

1. Base-Limit data 

2. Message 

3. Message array 
element 



4. Part of message 
a 
element 



of message array 



MEANS OF DESCRIPTION 
Descriptor on EVALUATION STACK 
Data dictionary entry number 
Data dictionary entry number and 
subscript on the EVALUATION STACK* 
is added to the data dictionary 
entry number 

The template on the EVALUATION 
STACK is to be applied to the 
message which is described by the 
data dictionary entry. This is 
obtained the same as 2 or 3. 



c. The type field of the destination field is used to 
obtain the description of the destination field. 



d. The type field of the source field is used to obtain 
the description of the source field. 



Data is transferred from the source field to the 
destination field as in a character to character store 
operation: 

1 • Left justified 

2. Trailing blank fill or truncation on the right 





ALPHABETIC INDEX: 


3-5 


ADO 


3-138 


ADD TIMER, SUBTRACT TIMER 


3-137 


ADDR 


3-137 


ADDRESS 


3-138 


ADDT 


3-55 


AL 


3-58 


ALA 


3-17 


AND 


3-4 


ARITHMETIC OPERATORS 


3-5 


ARITHMETICS 


3-58 


ARRAY LOAD ADDRESS 


3-55 


ARRAY LOAD VALUE 


3-8 


BIN 


3-77 


BUMP VALUE STACK POINTER 


3-77 


BVSP 


3-83 


CALL 


3-84 


CASE 


3-21 


CAT 


3-35 


CD AD 


3-37 


CDBZ 


3-38 


CDDY 


3-40 


CDFC 


3-44 


CDFM 


3-46 


CDLD 


3-48 


CDLL 


3-49 


CDMP 


3-51 


CDPR 


3-53 


CDRM 


3-109 


CHARACTER FILL 


3-109 


CHFL 


3-140 


CLEAR ARRAY 


3-140 


CLR 


3-86 


CNTR 


3-86 


CO-ROUTINE ENTRY 


3-88 


CO-ROUTINE EXIT 


1-14 


CODE ADDRESSES 


3-141 


COMM 


3-141 


COMMUNICATE 


3-142 


COMMUNICATE WITH GISMO 


1-2 


COMPONENTS OF THE S-MACHINE 


3-37 


CONSTRUCT DESCRIPTOR BASE ZERO 


3-38 


CONSTRUCT DESCRIPTOR OYNAMIC 


3-44 


CONSTRUCT DESCRIPTOR FORMAL 


3-51 


CONSTRUCT DESCRIPTOR FROM PREVIOUS 


3-4 8 


CONSTRUCT DESCRIPTOR LEXIC LEVEL 


3-46 


CONSTRUCT DESCRIPTOR LOCAL DATA 


3-34 


CONSTRUCT DESCRIPTOR OPERATORS 


3-49 


CONSTRUCT DESCRIPTOR PREVIOUS & MULTIPLY 


3-35 


CONSTRUCT DESCRIPTOR PREVIOUS and ADD 


3-53 


CONSTRUCT DESCRIPTOR REMAPS 


3-40 


CONSTRUCT DESCRIPTOR, FORMAL CHECK 


1-15 


CONTROL STACK MECHANISM 



3-8 


CONVERT TO BINARY 


3-9 


CONVERT TO OECIMAL 


3-142 


CWG 


3-88 


CXIT 


3-90 


CYCL 


3-90 


CYCLE 


1-13 


DATA AOORESSES 


1-7 


DATA DESCRIPTORS 


3-114 


DBLK 


3-114 


DEBLANK 


3-9 


DEC 


3-78 


DEL 


3-78 


DELETE 


3-112 


DELIMITED TOKEN 


3-59 


DESC 


3-59 


DESCRIPTOR 


3-143 


DISP 


3-143 


DISPATCH 


3-5 


DIV 


3-112 


DTKN 


3-79 


DUP 


3-79 


DUPLICATE 


3-91 


EDI 


3-91 


ENABLE DISABLE INTERRUPTS 


3-2 


EQL 


3-81 


EXCHANGE 


3-145 


EXEC 


3-145 


EXECUTE 


3-93 


EXIT 


3-107 


EXIT, ENABLE INTERRUPTS 


3-17 


EXOR 


3-13 


EXTENDED ARITHMETIC OPERATORS 


3-146 


FCMP 


3-110 


FDUP 


3-147 


FECH 


3-147 


FECS 


3-146 


FETCH COMMUNICATE MESSAGE POINTER 


3-147 


FETCH. FETCH AND SAVE 


3-110 


FIND DUPLICATE CHARACTERS 


3-80 


FORCE VALUE STACK 


3-80 


FVS 


1-1 


GENERAL 


3-2 


GEO 


3-2 


GTR 


3-149 


HALT 


3-152 


HARDWARE MONITOR 


3-150 


HASH 


3-150 


HASH CODE 


3-152 


HMON 


3-97 


IF THEN 


3-95 


IF THEN ELSE 


3-95 


IFEL 


3-97 


IFTH 


3-60 


IL 


3-62 


ILA 



1-18 

3-62 

3-60 

3-115 

2-1 

3-115 

3-63 

3-65 

3-153 

3-153 

3-2 

3-67 

3-69 

3-65 

3-67 

3-69 

3-7 3 

3-75 
3-54 

3-154 

3-63 

3-19 

3-16 

3-154 

3-2 

3-70 

3-98 

3-99 

3-70 

3-135 

3-98 

3-99 

3-5 

3-5 

3-1 

3-1 

3-2 

3-7 

3-1 

3-1 

3-7 

3-1 

3-73 

3-17 

3-155 

3-155 

3-158 

1-11 

3-158 

3-159 

3-82 

3-159 

3-156 

3-12 

3-156 



IN-LINE DESCRIPTOR FORMATS 
INDEXED LOAO ADDRESS 
INDEXED LOAD VALUE 
INITIALIZE VECTOR 
INSTRUCTION SET 
IVEC 



LA 




LENG 


• 


LENGTH 


LEQ 




LIT 




LITN 




LOAD 


ADDRESS 


LOAD 


LITERAL 


LOAD 


NUMERIC LITERAL 


LOAD 


NUMERIC ONE 


LOAD 


NUMERIC ZERO 


LOAD 


OPERATORS 


LOAD 


SPECIAL 


LOAD 


VALUE 


LOGICAL NOT 


LOGICAL OPERATORS 


LSP 




LSS 




MAKE 


DESCRIPTOR 


MARK 


STACK 


MARK 


STACK AND UPDATE 


MDSC 




MISCELLANEOUS OPERATORS 


MKS 




MKU 




MOD 




MUL 




NEG 




NEGATE 


NEQ 




NEXT 


OR PREVIOUS ITEM 


NEXT 


TOKEN 


NOT 




NPIT 




NTKN 




ONE 




OR 




OVERLAY 


OVLY 




PADR 




PAGE 


3 ARRAY DESCRIPTORS 


PARITY ADDRESS 


PRFL 




PROCEDURE OPERATORS 


PROFILE 


RDCS 




RDIV 




READ 


CASSETTE 



3-160 


REIN 


3-160 


REINSTATE 


1-1 


RELATED PUBLICATIONS 


3-1 


RELATIONAL OPERATORS 


3-103 


RETURN 


3-100 


RETURN FORMAL CHECK 


3-12 


REVERSE ARITHMETICS 


3-12 


RMOD 


3-12 


RSUB 


3-100 


RTNC 


3-103 


RTRN 


3-161 


SAVE STATE 


3-108 


SEARCH & SCAN OPERATORS 


3-119 


SEARCH LINKED LIST 


3-128 


SEARCH SDL STACKS 


3-126 


SEARCH SERIAL LIST 


3-119 


SLL 


3-29 


SNDL 


3-31 


SNDR 


3-122 


SORT SEARCH 


3-124 


SORT STEP DOWN 


3-129 


SORT SWAP 


3-132 


SORT UNBLOCK 


3-122 


SSCH 


3-124 


SSD 


3-126 


SSL 


3-128 


SSS 


3-129 


SSWP 


3-22 


SSI 


3-24 


SS2 


3-26 


SS3 


3-76 


STACK OPERATORS 


3-33 


STOD 


3-33 


STORE DESTRUCTIVE 


3-29 


STORE NON-DESTRUCTIVE* DELETE LEFT 


3-31 


STORE NON-DESTRUCTIVE* OELETE RIGHT 


3-28 


STORE OPERATORS 


3-21 


STRING CONCATENTATION 


3-20 


STRING OPERATORS 


3-5 


SUB 


3-26 


SUB-STRING* THREE PARAMETERS 


3-24 


SUB-STRING* TWO PARAMETERS 


3-22 


SUBSTRING, ONE PARAMETER 


3-138 


SUBT 


3-161 


SVST 


3-162 


SWAP 


1-4 


THE BASE-LIMIT AREA 


3-130 


THREAD VECTOR 


3-164 


TRANSFER MESSAGE 


3-133 


TRANSLATE 


3-130 


TVEC 


3-132 


UBLK 


3-106 


UNDC 


3-105 


UNDO 


3-106 


UNDO CONDITIONAL 



1-20 


USE 


3-74 


VALU 


3-74 


VDSC 


3-14 


XA00 


3-81 


XCH 


3-14 


XOIV 


3-164 


XFRM 


3-13 3 


XLAT 


3-14 


XMOD 


3-14 


XMUL 


3-14 


XSU3 


3-107 


XTEI 


3-75 


ZOT 



OF THE EVALUATION STACK 
E DESCRIPTOR 



